@@ -91,7 +91,7 @@ listTerm =
9191parensTerm :: IParser Source.Expr
9292parensTerm =
9393 choice
94− [ try (parens opFn)
94+ [ try opFn
9595 , parens (tupleFn <|> parened)
9696 ]
9797 where
@@ -102,7 +102,7 @@ parensTerm =
102102 A.at start end (E.rawVar x)
103103
104104 opFn =
105− do (start, op, end) <- located symOp
105+ do (start, op, end) <- located (parens symOp)
106106 return $
107107 lambda start end "x" $
108108 lambda start end "y" $