From 14bd71dadd11153b57697b1d8b4fa69e5da1a05c Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Sun, 28 May 2023 11:44:48 +0100
Subject: Add better logging

---
 src/Zettel/Render.hs | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

(limited to 'src/Zettel')

diff --git a/src/Zettel/Render.hs b/src/Zettel/Render.hs
index 662742d..8f9fbe5 100644
--- a/src/Zettel/Render.hs
+++ b/src/Zettel/Render.hs
@@ -19,6 +19,7 @@ import Text.Pandoc.Templates (WithDefaultPartials (..), compileTemplate)
 import Text.Pandoc.Walk (query)
 import Text.Pandoc.Writers (writeMarkdown)
 import Zettel.Types
+import Control.Logging
 
 zettelIdToLink :: ZettelId -> Inline
 zettelIdToLink ident = Link mempty [Str $ "#" <> unZettelId ident] ("/" <> unZettelId ident, "")
@@ -85,27 +86,27 @@ renderZettel csl bib _ zettel = do
               >>= writeMarkdown writeOpts
       else writeMarkdown writeOpts zettel.zettelBody
 
-renderZettelFile :: Bool -> FilePath -> Maybe FilePath -> FilePath -> ZettelId -> Zettel -> IO ()
-renderZettelFile v csl bib dir ident zettel = do
-  when v . putStrLn $ "Writing " <> path
+renderZettelFile :: FilePath -> Maybe FilePath -> FilePath -> ZettelId -> Zettel -> IO ()
+renderZettelFile csl bib dir ident zettel = do
+  log $ "Writing " <> T.pack path
   t <- renderZettel csl bib ident zettel
   writeFileText path t
   where
     path = dir </> "zettel" </> toString (unZettelId ident) <.> "md"
 
-renderBibFile :: Bool -> FilePath -> Maybe FilePath -> FilePath -> BibId -> Zettel -> IO ()
-renderBibFile v csl bib dir (BibId ident) zettel = do
-  when v . putStrLn $ "Writing " <> path
+renderBibFile :: FilePath -> Maybe FilePath -> FilePath -> BibId -> Zettel -> IO ()
+renderBibFile csl bib dir (BibId ident) zettel = do
+  log $ "Writing " <> T.pack path
   t <- renderZettel csl bib (ZettelId ident) zettel
   writeFileText path t
   where
     path = dir </> "bib" </> toString ident <.> "md"
 
-renderZettelGraphFile :: Bool -> FilePath -> Maybe FilePath -> FilePath -> ZettelGraph -> IO ()
-renderZettelGraphFile v csl bib fp zg =
+renderZettelGraphFile :: FilePath -> Maybe FilePath -> FilePath -> ZettelGraph -> IO ()
+renderZettelGraphFile csl bib fp zg =
   forM_
     (Map.assocs (unZettelGraph zg))
-    (uncurry (renderZettelFile v csl bib fp))
+    (uncurry (renderZettelFile csl bib fp))
     >> forM_
       (Map.assocs (zettelGraphBib zg))
-      (uncurry (renderBibFile v csl bib fp))
+      (uncurry (renderBibFile csl bib fp))
-- 
cgit