command option check

This commit is contained in:
aarne
2004-05-27 14:43:13 +00:00
parent 244307ca37
commit 6dcf9f1cd4
10 changed files with 202 additions and 65 deletions

View File

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