fix the command line parser

This commit is contained in:
krasimir
2008-06-15 09:21:59 +00:00
parent 2c8540b7c2
commit 486d21cd7a

View File

@@ -17,7 +17,7 @@ test s = RP.readP_to_S pCommandLine s
pCommandLine = RP.sepBy (RP.skipSpaces >> pPipe) (RP.skipSpaces >> RP.char ';')
pPipe = RP.sepBy (RP.skipSpaces >> pCommand) (RP.skipSpaces >> RP.char '|')
pPipe = RP.sepBy1 (RP.skipSpaces >> pCommand) (RP.skipSpaces >> RP.char '|')
pCommand = do
cmd <- pIdent