diff options
| author | aarne <unknown> | 2003-11-03 16:27:55 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-11-03 16:27:55 +0000 |
| commit | 94326929b144913642121bef8f8ecc98feb992e7 (patch) | |
| tree | 07d59cc33cbef2ac79c6f3f573b9718c51322e7a /src/GF/Infra/Option.hs | |
| parent | 2728e6e7ceec92c7f781368b4a523b37e5dee3b9 (diff) | |
Fixed several things, e.g. tokenizer.
Diffstat (limited to 'src/GF/Infra/Option.hs')
| -rw-r--r-- | src/GF/Infra/Option.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/GF/Infra/Option.hs b/src/GF/Infra/Option.hs index 59e9f352a..100ded735 100644 --- a/src/GF/Infra/Option.hs +++ b/src/GF/Infra/Option.hs @@ -59,6 +59,9 @@ addOption o (Opts os) = iOpts (o:os) addOptions (Opts os) os0 = foldr addOption os0 os +concatOptions :: [Options] -> Options +concatOptions = foldr addOptions noOptions + removeOption :: Option -> Options -> Options removeOption o (Opts os) = iOpts (filter (/=o) os) @@ -152,6 +155,8 @@ doTrace = iOpt "tr" noCPU = iOpt "nocpu" doCompute = iOpt "c" optimizeCanon = iOpt "opt" +stripQualif = iOpt "strip" +nostripQualif = iOpt "nostrip" -- mainly for stand-alone useUnicode = iOpt "unicode" |