make it easier to load multiple markdown extensions
authorrekado <rekado@elephly.net>
Sat, 26 Oct 2013 15:14:37 +0000 (23:14 +0800)
committerrekado <rekado@elephly.net>
Sat, 26 Oct 2013 15:14:37 +0000 (23:14 +0800)
site.hs

diff --git a/site.hs b/site.hs
index 350d99998c342665896a7f84cf1b464e735c0bdc..9fcd0b7cd35f0ae65e8f6fd86b8d1b01bb6bd78e 100644 (file)
--- a/site.hs
+++ b/site.hs
@@ -139,11 +139,11 @@ postList sortFilter = do
 customPandocCompiler :: Compiler (Item String)
 customPandocCompiler =
     pandocCompilerWith
-      (addRExt Ext_pipe_tables defaultHakyllReaderOptions)
-      (addWExt Ext_pipe_tables defaultHakyllWriterOptions)
+      (addRExt [Ext_pipe_tables] defaultHakyllReaderOptions)
+      (addWExt [Ext_pipe_tables] defaultHakyllWriterOptions)
   where
-    addRExt e opts = opts { readerExtensions = S.insert e (readerExtensions opts) }
-    addWExt e opts = opts { writerExtensions = S.insert e (writerExtensions opts) }
+    addRExt es opts = opts { readerExtensions = S.union (S.fromList es) (readerExtensions opts) }
+    addWExt es opts = opts { writerExtensions = S.union (S.fromList es) (writerExtensions opts) }
 
 defaultCompiler = customPandocCompiler
   >>= loadAndApplyTemplate "templates/post.html"    postCtx