diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-30 23:51:42 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-30 23:51:42 +0100 |
| commit | 8eff4fe0b8abfa102d99e35b44d20d6836ce514e (patch) | |
| tree | 2e1422907eeffea64391043b2f3ae68791a0c62c | |
| parent | Move all source to subdir. (diff) | |
| download | vimwiki-scripts-8eff4fe0b8abfa102d99e35b44d20d6836ce514e.tar.gz vimwiki-scripts-8eff4fe0b8abfa102d99e35b44d20d6836ce514e.tar.xz | |
Add verbose logging.
| -rw-r--r-- | hs/src/Html.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/hs/src/Html.hs b/hs/src/Html.hs index 424f688..5235a42 100644 --- a/hs/src/Html.hs +++ b/hs/src/Html.hs @@ -219,7 +219,6 @@ headerContent (Header _ _ inlines) = Just $ stringify inlines headerContent _ = Nothing - handlePart :: Configuration -> FilePath -> Map Text (Set FilePath) -> FilePath -> [FilePath] -> PandocIO () handlePart conf outdir backlinks wiki_root parts = do let item_path = joinPath parts @@ -227,6 +226,10 @@ handlePart conf outdir backlinks wiki_root parts = do let outTarget = outdir </> item_path -<.> "html" liftIO $ mkdirP . takeDirectory $ outTarget + -- TODO put this behind verobse flag + -- TODO replace this with a progress bar + liftIO . putStrLn $ "Building " <> inTarget + text <- liftIO $ T.readFile inTarget bl <- case M.lookup (pack . dropExtension $ item_path) backlinks of |