Fixed parsing for case foo \n in ..
This commit is contained in:
parent
51cd951baa
commit
092073d0b3
|
@ -1289,11 +1289,12 @@ readInClause = do
|
||||||
return things
|
return things
|
||||||
|
|
||||||
prop_readCaseClause = isOk readCaseClause "case foo in a ) lol; cow;; b|d) fooo; esac"
|
prop_readCaseClause = isOk readCaseClause "case foo in a ) lol; cow;; b|d) fooo; esac"
|
||||||
|
prop_readCaseClause2 = isOk readCaseClause "case foo\n in * ) echo bar;; esac"
|
||||||
readCaseClause = called "case expression" $ do
|
readCaseClause = called "case expression" $ do
|
||||||
id <- getNextId
|
id <- getNextId
|
||||||
g_Case
|
g_Case
|
||||||
word <- readNormalWord
|
word <- readNormalWord
|
||||||
spacing
|
allspacing
|
||||||
g_In
|
g_In
|
||||||
readLineBreak
|
readLineBreak
|
||||||
list <- readCaseList
|
list <- readCaseList
|
||||||
|
|
Loading…
Reference in New Issue