Fixed parsing for case foo \n in ..

This commit is contained in:
Vidar Holen 2013-06-20 23:57:08 -07:00
commit 092073d0b3

View file

@ -1289,11 +1289,12 @@ readInClause = do
return things
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
id <- getNextId
g_Case
word <- readNormalWord
spacing
allspacing
g_In
readLineBreak
list <- readCaseList