ghc-mod/Flag.hs

11 lines
207 B
Haskell
Raw Normal View History

module Flag where
import DynFlags
import Types
listFlags :: Options -> IO String
listFlags opt = return $ convert opt $
[ "-f" ++ prefix ++ option
| (option,_,_) <- fFlags, prefix <- ["","no-"]
]