git.iko.soy/elk
on master help sign in
Get the correct region for infix ops as functions
c2b65bcEvan Czaplicki
src/Parse/Expression.hs+2−2
compare with master
unifiedsplit
@@ -91,7 +91,7 @@ listTerm =
91parensTerm :: IParser Source.Expr
91parensTerm :: IParser Source.Expr
92parensTerm =
92parensTerm =
93 choice
93 choice
94− [ try (parens opFn)
94+ [ try opFn
95 , parens (tupleFn <|> parened)
95 , parens (tupleFn <|> parened)
96 ]
96 ]
97 where
97 where
@@ -102,7 +102,7 @@ parensTerm =
102 A.at start end (E.rawVar x)
102 A.at start end (E.rawVar x)
103
103
104 opFn =
104 opFn =
105− do (start, op, end) <- located symOp
105+ do (start, op, end) <- located (parens symOp)
106 return $
106 return $
107 lambda start end "x" $
107 lambda start end "x" $
108 lambda start end "y" $
108 lambda start end "y" $