@@ -103,7 +103,7 @@ parensTerm =
103103 A.at start end (E.rawVar x)
104104
105105 opFn =
106− do (start, op, end) <- located symOp
106+ do (start, op, end) <- located symOpa
107107 return $
108108 lambda start end "x" $
109109 lambda start end "y" $
@@ -249,19 +249,13 @@ caseExpr =
249249 e <- padded expr
250250 reserved "of"
251251 whitespace
252− E.Case e <$> (with <|> without)
252+ E.Case e <$> block (do c <- case_ ; whitespace ; return c)
253253 where
254254 case_ =
255255 do p <- Pattern.expr
256256 padded rightArrow
257257 (,) p <$> expr
258258
259− with =
260− brackets (semiSep1 (case_ <?> "cases { x -> ... }"))
261−
262− without =
263− block (do c <- case_ ; whitespace ; return c)
264−
265259
266260-- LET
267261