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