@@ -103,7 +103,7 @@ parensTerm =
103 A.at start end (E.rawVar x)
103 A.at start end (E.rawVar x)
106− do (start, op, end) <- located symOp
106+ do (start, op, end) <- located symOpa
108 lambda start end "x" $
108 lambda start end "x" $
109 lambda start end "y" $
109 lambda start end "y" $
@@ -249,19 +249,13 @@ caseExpr =
249 e <- padded expr
249 e <- padded expr
250 reserved "of"
250 reserved "of"
251 whitespace
251 whitespace
252− E.Case e <$> (with <|> without)
252+ E.Case e <$> block (do c <- case_ ; whitespace ; return c)
255 do p <- Pattern.expr
255 do p <- Pattern.expr
256 padded rightArrow
256 padded rightArrow
257 (,) p <$> expr
257 (,) p <$> expr
260− brackets (semiSep1 (case_ <?> "cases { x -> ... }"))
263− block (do c <- case_ ; whitespace ; return c)