File: Flag.hs

package info (click to toggle)
ghc-mod 1.10.18-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 204 kB
  • sloc: lisp: 818; haskell: 721; sh: 34; makefile: 27
file content (12 lines) | stat: -rw-r--r-- 335 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
 
{-# LANGUAGE CPP #-}

module Flag where

import Types
import qualified Gap

listFlags :: Options -> IO String
listFlags opt = return $ convert opt [ "-f" ++ prefix ++ option
                                     | option <- Gap.fOptions
                                     , prefix <- ["","no-"]
                                     ]