diff options
Diffstat (limited to 'utils/notes-util/Main.hs')
| -rw-r--r-- | utils/notes-util/Main.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/utils/notes-util/Main.hs b/utils/notes-util/Main.hs index ceaf4f9b04..aa9386bc01 100644 --- a/utils/notes-util/Main.hs +++ b/utils/notes-util/Main.hs @@ -27,13 +27,18 @@ main = do let printNoteDefs = putStrLn . unlines . map showNoteDef printNoteRefs = putStrLn . unlines . map showNoteRef + printNoteRefsSugg (bad, sugg) = do + putStrLn . showNoteRef $ bad + putStrLn $ " >" ++ showNoteDef sugg + parseMode :: String -> Maybe (NoteDb -> IO ()) parseMode "dump" = Just $ putStrLn . showNoteDb parseMode "unreferenced" = Just $ printNoteDefs . S.toList . unreferencedNotes parseMode "defs" = Just $ printNoteDefs . allNoteDefs parseMode "refs" = Just $ printNoteRefs . allNoteRefs - parseMode "broken-refs" = Just $ printNoteRefs . brokenNoteRefs + parseMode "broken-refs" = Just $ printNoteRefs . map fst . brokenNoteRefs + parseMode "broken-refs-suggest" = Just $ mapM_ printNoteRefsSugg . brokenNoteRefs parseMode _ = Nothing (mode, files) <- case args of |