git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Fix #386
1f3245fPhil Freeman
examples/failing/EmptyDo.pursnew file+6
compare with golang
unifiedsplit
@@ -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
434parseDo = do
434parseDo = do
435 reserved "do"
435 reserved "do"
436 C.indented
436 C.indented
437− Do <$> C.mark (P.many (C.same *> C.mark parseDoNotationElement))
437+ Do <$> C.mark (P.many1 (C.same *> C.mark parseDoNotationElement))
438
438
439parseDoNotationLet :: TokenParser DoNotationElement
439parseDoNotationLet :: TokenParser DoNotationElement
440parseDoNotationLet = DoNotationLet <$> (reserved "let" *> C.indented *> C.mark (P.many1 (C.same *> parseLocalDeclaration)))
440parseDoNotationLet = DoNotationLet <$> (reserved "let" *> C.indented *> C.mark (P.many1 (C.same *> parseLocalDeclaration)))