diff options
Diffstat (limited to 'src/Zettel/Render.hs')
| -rw-r--r-- | src/Zettel/Render.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Zettel/Render.hs b/src/Zettel/Render.hs index c64a910..27e8664 100644 --- a/src/Zettel/Render.hs +++ b/src/Zettel/Render.hs @@ -27,7 +27,7 @@ renderTitleLinks :: Int -> Text -> [ZettelId] -> [Block] renderTitleLinks level title ids = [Header level mempty (toInlines title), renderZettelLinks ids] -renderZettel :: ZettelId -> ZettelNode -> IO Text +renderZettel :: ZettelId -> Zettel -> IO Text renderZettel _ zettel = do templateFile <- getDataFileName "data/markdown.template" template <- decodeUtf8 <$> readFileBS templateFile @@ -35,9 +35,9 @@ renderZettel _ zettel = do runIOorExplode $ writeMarkdown (def {writerTemplate = Just templ, writerExtensions = multimarkdownExtensions}) - (zettel.zettelNodeZettel.zettelBody) + zettel.zettelBody -renderZettelFile :: FilePath -> ZettelId -> ZettelNode -> IO () +renderZettelFile :: FilePath -> ZettelId -> Zettel -> IO () renderZettelFile dir ident zettel = do t <- renderZettel ident zettel writeFileText (dir <> "/" <> toString (unZettelId ident <> ".md")) t |