diff options
Diffstat (limited to 'src/Text/Hakyll/Pandoc.hs')
-rw-r--r-- | src/Text/Hakyll/Pandoc.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Hakyll/Pandoc.hs b/src/Text/Hakyll/Pandoc.hs index f6c8383..f3626d9 100644 --- a/src/Text/Hakyll/Pandoc.hs +++ b/src/Text/Hakyll/Pandoc.hs @@ -38,11 +38,11 @@ getRenderFunction fileType = do { stateLiterateHaskell = True } readOptions options _ = options --- | Path must be there +-- | An action that renders the list of page sections to a context using pandoc -- renderAction :: HakyllAction [PageSection] Context renderAction = createHakyllAction $ \sections -> do - let triples = unPageSection =<< sections + let triples = map unPageSection sections path = fromMaybe "unknown" $ lookup "path" $ map (\(x, y, _) -> (x, y)) $ triples |