fixes in parsing

This commit is contained in:
aarne
2004-06-22 12:33:31 +00:00
parent 3986f8c265
commit 53f7d4ecfb
7 changed files with 31 additions and 24 deletions

View File

@@ -230,6 +230,7 @@ flagDepth = aOpt "depth"
flagAlts = aOpt "alts"
flagLength = aOpt "length"
flagNumber = aOpt "number"
flagRawtrees = aOpt "rawtrees"
caseYesNo :: Options -> OptFun -> Maybe Bool
caseYesNo opts f = do