From 90d263c7be17c7fcc7dae3ccdad3a49e3e470cee Mon Sep 17 00:00:00 2001 From: rekado Date: Sat, 26 Oct 2013 23:14:37 +0800 Subject: make it easier to load multiple markdown extensions --- site.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'site.hs') 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 -- cgit v1.2.3