ghc-mod/Flag.hs
2012-02-08 16:11:36 +09:00

18 lines
305 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-"]
]