From 6dcf9f1cd463262bd3015b93afb615c487f0b349 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 27 May 2004 14:43:13 +0000
Subject: command option check

---
 src/GF/Infra/Option.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/GF/Infra')

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"
-- 
cgit v1.2.3