diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-02-03 17:15:18 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2022-02-07 08:42:17 +0000 |
| commit | f84d2b90f9ae3768b16a9f49c013917cb2485014 (patch) | |
| tree | 56044a7d07d73c3eca7f603dd1c966f044741fe3 /utils/notes-util/Main.hs | |
| parent | 6fa4d7d67bf1ace294a4c27dd2114e39b1251988 (diff) | |
| download | haskell-wip/notes-linter.tar.gz | |
Add suggestion mode to notes-utilwip/notes-linter
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 |