pandoc 1.14.0.1 → 1.14.0.2
raw patch · 3 files changed
+26/−2 lines, 3 filesdep ~hsluaPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: hslua
API changes (from Hackage documentation)
- Text.Pandoc.Writers.Custom: instance [overlap ok] StackValue a => StackValue [a]
+ Text.Pandoc.Writers.Custom: instance [overlap ok] StackValue [Char]
Files
- changelog +4/−0
- pandoc.cabal +2/−2
- src/Text/Pandoc/Writers/Custom.hs +20/−0
changelog view
@@ -1,3 +1,7 @@+pandoc (1.14.0.2)++ * Allow building with hslua 0.4.+ pandoc (1.14.0.1) * Fixed problem with building of `reference.docx` and `reference.odt`
pandoc.cabal view
@@ -1,5 +1,5 @@ Name: pandoc-Version: 1.14.0.1+Version: 1.14.0.2 Cabal-Version: >= 1.10 Build-Type: Custom License: GPL@@ -265,7 +265,7 @@ yaml >= 0.8.8.2 && < 0.9, scientific >= 0.2 && < 0.4, vector >= 0.10 && < 0.11,- hslua >= 0.3 && < 0.4,+ hslua >= 0.3 && < 0.5, binary >= 0.5 && < 0.8, SHA >= 1.6 && < 1.7, haddock-library >= 1.1 && < 1.3,
src/Text/Pandoc/Writers/Custom.hs view
@@ -69,6 +69,13 @@ return (x : rest) else return [] +#if MIN_VERSION_hslua(0,4,0)+instance {-# OVERLAPS #-} StackValue [Char] where+ push lua cs = Lua.push lua (UTF8.fromString cs)+ peek lua i = do+ res <- Lua.peek lua i+ return $ UTF8.toString `fmap` res+#else #if MIN_VERSION_base(4,8,0) instance {-# OVERLAPS #-} StackValue a => StackValue [a] where #else@@ -86,6 +93,7 @@ Lua.pop lua 1 return (Just lst) valuetype _ = Lua.TTABLE+#endif instance StackValue Format where push lua (Format f) = Lua.push lua (map toLower f)@@ -111,12 +119,20 @@ peek _ _ = undefined -- not needed for our purposes valuetype _ = Lua.TTABLE +#if MIN_VERSION_base(4,8,0)+instance {-# OVERLAPS #-} StackValue [Inline] where+#else instance StackValue [Inline] where+#endif push l ils = Lua.push l =<< inlineListToCustom l ils peek _ _ = undefined valuetype _ = Lua.TSTRING +#if MIN_VERSION_base(4,8,0)+instance {-# OVERLAPS #-} StackValue [Block] where+#else instance StackValue [Block] where+#endif push l ils = Lua.push l =<< blockListToCustom l ils peek _ _ = undefined valuetype _ = Lua.TSTRING@@ -167,7 +183,11 @@ -- check for error in lua script (later we'll change the return type -- to handle this more gracefully): when (status /= 0) $+#if MIN_VERSION_hslua(0,4,0)+ Lua.tostring lua 1 >>= throw . PandocLuaException . UTF8.toString+#else Lua.tostring lua 1 >>= throw . PandocLuaException+#endif Lua.call lua 0 0 -- TODO - call hierarchicalize, so we have that info rendered <- docToCustom lua opts doc