blob: e9fe77d6e205126632773ec9b99dc0ec20651c16 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
module Main where
import GHC.Driver.Session
import Control.Monad
import Data.List (isPrefixOf)
-- Verify bogus flags aren't printed on flagsForCompletion and
-- allNonDeprecatedFlags:
-- * -fwarn-
-- * -fno-warn-
--
-- Should print nothing
main :: IO ()
main = mapM_ print $ fwarnFlags (flagsForCompletion True) ++ nonDepFwarnFlags
-- Get flags beginning with -fwarn- and -fno-warn-
fwarnFlags :: [String] -> [String]
fwarnFlags = filter isFwarn
where isFwarn flag = any (flip isPrefixOf $ flag) ["-fwarn-", "-fno-warn"]
-- Get suggested flags for -fwarn-, -fno-warn-
nonDepFwarnFlags :: [String]
nonDepFwarnFlags = filter isFwarn allNonDeprecatedFlags
where isFwarn "-fwarn-" = True
isFwarn "-fno-warn-" = True
isFwarn _ = False
|
