Fix #386
commit1f3245f9896ebb948427d40995f99f6295f195f5
authorPhil Freeman <paf31@cantab.net>
dateTue 18 Aug 2015, 20:32 (11 years ago)
parent0355144
examples/failing/EmptyDo.pursnew file+6
@@ -0,0 +1,6 @@
1+-- @shouldFailWith ErrorParsingModule
2+
3+module Main where
4+
5+main = do
6+
src/Language/PureScript/Parser/Declarations.hs+1−1
@@ -434,7 +434,7 @@ parseDo :: TokenParser Expr
434434parseDo = do
435435 reserved "do"
436436 C.indented
437− Do <$> C.mark (P.many (C.same *> C.mark parseDoNotationElement))
437+ Do <$> C.mark (P.many1 (C.same *> C.mark parseDoNotationElement))
438438
439439parseDoNotationLet :: TokenParser DoNotationElement
440440parseDoNotationLet = DoNotationLet <$> (reserved "let" *> C.indented *> C.mark (P.many1 (C.same *> parseLocalDeclaration)))