ghc-mod/Flag.hs

18 lines
307 B
Haskell
Raw Normal View History

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