Flag.hs 335 B

12345678910111213
  1. {-# LANGUAGE CPP #-}
  2. module Flag where
  3. import Types
  4. import qualified Gap
  5. listFlags :: Options -> IO String
  6. listFlags opt = return $ convert opt [ "-f" ++ prefix ++ option
  7. | option <- Gap.fOptions
  8. , prefix <- ["","no-"]
  9. ]