ghc-mod/Flag.hs
2012-01-27 21:22:36 +09:00

18 lines
307 B
Haskell

{-# LANGUAGE CPP #-}
module Flag where
import DynFlags
import Types
listFlags :: Options -> IO String
listFlags opt = return $ convert opt $
[ "-f" ++ prefix ++ option
#if __GLASGOW_HASKELL__ == 702
| (option,_,_,_) <- fFlags
#else
| (option,_,_) <- fFlags
#endif
, prefix <- ["","no-"]
]