diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-02-02 16:39:20 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-02-08 05:28:42 -0500 |
| commit | bc5cbce61b57f57cadf5c25fa3e60cf34c3b98ea (patch) | |
| tree | 36350006a6f06895c8b6e74cd785ed18d5584d58 /utils/notes-util/Main.hs | |
| parent | 1a9438594d6d5280dfe43e4e597dd0380963268d (diff) | |
| download | haskell-bc5cbce61b57f57cadf5c25fa3e60cf34c3b98ea.tar.gz | |
Add notes linter to testsuite
Diffstat (limited to 'utils/notes-util/Main.hs')
| -rw-r--r-- | utils/notes-util/Main.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/utils/notes-util/Main.hs b/utils/notes-util/Main.hs index d685001d1c..ceaf4f9b04 100644 --- a/utils/notes-util/Main.hs +++ b/utils/notes-util/Main.hs @@ -44,8 +44,11 @@ main = do files <- lines <$> readFile respFile return (parseMode mode, files) [mode] -> do + let excludeList = + [ "testsuite/tests/linters/notes.stdout" + , "utils/notes-util/test" ] files <- lines <$> readProcess "git" ["ls-tree", "--name-only", "-r", "HEAD"] "" - return (parseMode mode, files) + return (parseMode mode, filter (`notElem` excludeList) files) _ -> usage case mode of |