allow spaces between command options; option -treebank in linearize

2008-06-11 09:20:26 +00:00
parent 9628eb6314
commit ad16eb2d78
5 changed files with 31 additions and 28 deletions
--- a/src-3.0/GF/Command/Parse.hs
+++ b/src-3.0/GF/Command/Parse.hs
@@ -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)