diff options
| author | aarne <unknown> | 2004-05-27 14:43:13 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-05-27 14:43:13 +0000 |
| commit | 6dcf9f1cd463262bd3015b93afb615c487f0b349 (patch) | |
| tree | ba443c12c3820f7a6154a889f7f2057362843004 /src/GF/Infra | |
| parent | 244307ca3765c784cf3cb7d572eb08751a2ba74c (diff) | |
command option check
Diffstat (limited to 'src/GF/Infra')
| -rw-r--r-- | src/GF/Infra/Option.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Infra/Option.hs b/src/GF/Infra/Option.hs index b2a5902cc..c04d40244 100644 --- a/src/GF/Infra/Option.hs +++ b/src/GF/Infra/Option.hs @@ -25,6 +25,7 @@ eqOpt s (Opt (o, [])) = s == o eqOpt s _ = False type OptFun = String -> Option +type OptFunId = String getOptVal :: Options -> OptFun -> Maybe String getOptVal (Opts os) fopt = @@ -140,7 +141,7 @@ tableLin = iOpt "table" defaultLinOpts = [firstLin] useUTF8 = iOpt "utf8" showLang = iOpt "lang" -noMetas = iOpt "nometas" +withMetas = iOpt "metas" -- other beVerbose = iOpt "v" |