diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-10-04 14:14:41 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-10-04 14:14:41 +0200 |
| commit | 371bc0347b21ff6693f9badeae4962433d42cc55 (patch) | |
| tree | 1f62458183571d0d6566c095dbb57a0635699a37 /src/Text/Hakyll/Pandoc.hs | |
| parent | c73c09270d7605940c1064aef50675c0cff912c8 (diff) | |
| download | hakyll-371bc0347b21ff6693f9badeae4962433d42cc55.tar.gz | |
Clean up yesterday's work, fix tests
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 |