command option check

2004-05-27 14:43:13 +00:00
parent 244307ca37
commit 6dcf9f1cd4
10 changed files with 202 additions and 65 deletions
--- a/src/GF/API.hs
+++ b/src/GF/API.hs
@@ -167,7 +167,7 @@ generateTrees opts gr mt =
    cat = firstAbsCat opts gr
    dpt = maybe 3 id $ getOptInt opts flagDepth
    mn  = getOptInt opts flagAlts
-    ifm = not $ oElem noMetas opts
+    ifm = oElem withMetas opts

 speechGenerate :: Options -> String -> IO ()
 speechGenerate opts str = do