Fix #815
commitb557066a29b7826e713ad4e85ceea12c8c0d7b77
authorPhil Freeman <paf31@cantab.net>
dateTue 10 Feb 2015, 11:06 (12 years ago)
parenta49ab17
examples/passing/Operators.purs+6
@@ -73,6 +73,11 @@ module Main where
7373 test19 :: Number
7474 test19 = negate $ negate (-1)
7575
76+ test20 :: Number
77+ test20 = 1 @ 2
78+ where
79+ (@) x y = x + y * y
80+
7681 main = do
7782 let t1 = test1 1 2 (\x y -> x + y)
7883 let t2 = test2
@@ -93,4 +98,5 @@ module Main where
9398 let t17 = test17
9499 let t18 = test18
95100 let t19 = test19
101+ let t20 = test20
96102 trace "Done"
src/Language/PureScript/Parser/Lexer.hs+1
@@ -422,6 +422,7 @@ symbol = token go P.<?> "symbol"
422422 go (Symbol s) = Just s
423423 go Colon = Just ":"
424424 go LFatArrow = Just "<="
425+ go At = Just "@"
425426 go _ = Nothing
426427
427428symbol' :: String -> TokenParser ()