Fixed parser error for '..; done| ..'
This commit is contained in:
parent
27822a1f56
commit
95ebe1cd07
|
@ -1214,6 +1214,7 @@ readSimpleCommand = called "simple command" $ do
|
||||||
|
|
||||||
prop_readPipeline = isOk readPipeline "! cat /etc/issue | grep -i ubuntu"
|
prop_readPipeline = isOk readPipeline "! cat /etc/issue | grep -i ubuntu"
|
||||||
prop_readPipeline2 = isWarning readPipeline "!cat /etc/issue | grep -i ubuntu"
|
prop_readPipeline2 = isWarning readPipeline "!cat /etc/issue | grep -i ubuntu"
|
||||||
|
prop_readPipeline3 = isOk readPipeline "for f; do :; done|cat"
|
||||||
readPipeline = do
|
readPipeline = do
|
||||||
unexpecting "keyword/token" readKeyword
|
unexpecting "keyword/token" readKeyword
|
||||||
do
|
do
|
||||||
|
@ -1705,7 +1706,7 @@ g_Semi = do
|
||||||
tryToken ";" T_Semi
|
tryToken ";" T_Semi
|
||||||
|
|
||||||
keywordSeparator =
|
keywordSeparator =
|
||||||
eof <|> disregard whitespace <|> (disregard $ oneOf ";()[<>&")
|
eof <|> disregard whitespace <|> (disregard $ oneOf ";()[<>&|")
|
||||||
|
|
||||||
readKeyword = choice [ g_Then, g_Else, g_Elif, g_Fi, g_Do, g_Done, g_Esac, g_Rbrace, g_Rparen, g_DSEMI ]
|
readKeyword = choice [ g_Then, g_Else, g_Elif, g_Fi, g_Do, g_Done, g_Esac, g_Rbrace, g_Rparen, g_DSEMI ]
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue