GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 11:19:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

command option check

Browse Source
This commit is contained in:
aarne
2004-05-27 14:43:13 +00:00
parent 0f8955da68
commit 866418ea5e
10 changed files with 202 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Infra/Option.hs
View File

@@ -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"