2012-01-27 21:22:36 +09:00
|
|
|
{-# LANGUAGE CPP #-}
|
|
|
|
|
|
2012-01-22 20:18:40 -08:00
|
|
|
module Flag where
|
|
|
|
|
|
|
|
|
|
import Types
|
2012-02-14 16:09:53 +09:00
|
|
|
import qualified Gap
|
2012-01-22 20:18:40 -08:00
|
|
|
|
|
|
|
|
listFlags :: Options -> IO String
|
2012-02-14 16:09:53 +09:00
|
|
|
listFlags opt = return $ convert opt [ "-f" ++ prefix ++ option
|
|
|
|
|
| option <- Gap.fOptions
|
|
|
|
|
, prefix <- ["","no-"]
|
|
|
|
|
]
|
