fix the command line parser

This commit is contained in:
krasimir
2008-06-15 09:21:59 +00:00
parent d9cca2146d
commit a3c6fef6ae

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