make it easier to load multiple markdown extensions

1 files changed, 4 insertions, 4 deletions

diff --git a/site.hs b/site.hs
index 350d999..9fcd0b7 100644
--- 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