allow spaces between command options; option -treebank in linearize

This commit is contained in:
aarne
2008-06-11 09:20:26 +00:00
parent 9628eb6314
commit ad16eb2d78
5 changed files with 31 additions and 28 deletions

View File

@@ -20,7 +20,8 @@ pPipe = RP.sepBy (RP.skipSpaces >> pCommand) (RP.skipSpaces >> RP.char '|')
pCommand = do
cmd <- pIdent
RP.skipSpaces
opts <- RP.many pOption
opts <- RP.sepBy pOption RP.skipSpaces
-- opts <- RP.many pOption
arg <- RP.option ANoArg (fmap AExp (pExp False))
return (Command cmd opts arg)