ac67dbd · elk · git.iko.soy

Take out the F# inspired composition operators. I think this needs to wait until type-classes / monads / arrows are more figured out.

commitac67dbd87f8e1fee8f4a64210761c53177e6799c authorevancz <info@elm-lang.org> dateMon 22 Apr 2013, 10:24 (14 years ago) parent00d3ad2

2 files changed+1−3

unifiedsplit

compiler/Gen/CompileToJS.hs−2

@@ -328,8 +328,6 @@ binop (o:p) e1 e2

328328 "<|" -> e1 ++ parens e2

329329 "|>" -> e2 ++ parens e1

330330 "." -> jsFunc "x" . ret $ e1 ++ parens (e2 ++ parens "x")

331− "<<" -> jsFunc "x" . ret $ e1 ++ parens (e2 ++ parens "x")

332− ">>" -> jsFunc "x" . ret $ e2 ++ parens (e1 ++ parens "x")

333331 "^" -> "Math.pow(" ++ e1 ++ "," ++ e2 ++ ")"

334332 "==" -> "_N.eq(" ++ e1 ++ "," ++ e2 ++ ")"

335333 "/=" -> "!_N.eq(" ++ e1 ++ "," ++ e2 ++ ")"

compiler/Parse/Binops.hs+1−1

@@ -17,7 +17,7 @@ data Assoc = L | N | R deriving (Eq,Show)

1717type OpTable = [(Int, Assoc, String)]

1818

1919table :: OpTable

20−table = [ (9, R, "."), (9, R, "<<"), (9, L, ">>")

20+table = [ (9, R, ".")

2121 , (8, R, "^")

2222 , (7, L, "*"), (7, L, "/"), (7, L, "mod"), (7, L, "div"), (7, L, "rem")

2323 , (6, L, "+"), (6, L, "-")