Fixed parsing for case foo \n in ..

This commit is contained in:
Vidar Holen 2013-06-20 23:57:08 -07:00
parent 51cd951baa
commit 092073d0b3
1 changed files with 2 additions and 1 deletions

View File

@ -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