summaryrefslogtreecommitdiff
path: root/lib/Hakyll/Web/Pandoc.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Hakyll/Web/Pandoc.hs')
-rw-r--r--lib/Hakyll/Web/Pandoc.hs14
1 files changed, 5 insertions, 9 deletions
diff --git a/lib/Hakyll/Web/Pandoc.hs b/lib/Hakyll/Web/Pandoc.hs
index 6dcae32..5f04de4 100644
--- a/lib/Hakyll/Web/Pandoc.hs
+++ b/lib/Hakyll/Web/Pandoc.hs
@@ -22,11 +22,9 @@ module Hakyll.Web.Pandoc
--------------------------------------------------------------------------------
-import qualified Data.Set as S
+import qualified Data.Text as T
import Text.Pandoc
-import Text.Pandoc.Error (PandocError (..))
import Text.Pandoc.Highlighting (pygments)
-import qualified Data.Text as T
--------------------------------------------------------------------------------
@@ -51,11 +49,9 @@ readPandocWith
-> Compiler (Item Pandoc) -- ^ Resulting document
readPandocWith ropt item =
case runPure $ traverse (reader ropt (itemFileType item)) (fmap T.pack item) of
- Left (PandocParseError err) -> fail $
- "Hakyll.Web.Pandoc.readPandocWith: parse failed: " ++ err
- Left (PandocParsecError _ err) -> fail $
+ Left err -> fail $
"Hakyll.Web.Pandoc.readPandocWith: parse failed: " ++ show err
- Right item' -> return item'
+ Right item' -> return item'
where
reader ro t = case t of
DocBook -> readDocBook ro
@@ -88,8 +84,8 @@ writePandocWith :: WriterOptions -- ^ Writer options for pandoc
-> Item String -- ^ Resulting HTML
writePandocWith wopt (Item itemi doc) =
case runPure $ writeHtml5String wopt doc of
- Left (PandocSomeError err) -> error $ "Hakyll.Web.Pandoc.writePandocWith: unknown error: " ++ err
- Right item' -> Item itemi $ T.unpack item'
+ Left err -> error $ "Hakyll.Web.Pandoc.writePandocWith: " ++ show err
+ Right item' -> Item itemi $ T.unpack item'
--------------------------------------------------------------------------------