2013-05-17 10:00:01 +09:00
|
|
|
module Language.Haskell.GhcMod.Flag where
|
2012-01-22 20:18:40 -08:00
|
|
|
|
2013-05-17 10:00:01 +09:00
|
|
|
import qualified Language.Haskell.GhcMod.Gap as Gap
|
2014-05-12 00:40:00 +02:00
|
|
|
import Language.Haskell.GhcMod.Convert
|
2014-07-11 03:10:37 +02:00
|
|
|
import Language.Haskell.GhcMod.Monad
|
2012-01-22 20:18:40 -08:00
|
|
|
|
2013-05-20 14:28:56 +09:00
|
|
|
-- | Listing GHC flags. (e.g -fno-warn-orphans)
|
|
|
|
|
|
2014-07-12 11:16:16 +02:00
|
|
|
flags :: IOish m => GhcModT m String
|
2014-07-11 03:10:37 +02:00
|
|
|
flags = convert' [ "-f" ++ prefix ++ option
|
|
|
|
|
| option <- Gap.fOptions
|
|
|
|
|
, prefix <- ["","no-"]
|
|
|
|
|
]
|