git.iko.soy/elk
on master help sign in
Get rid of `($)`...
b4bf8e9evancz
compiler/Gen/CompileToJS.hs−1
compare with master
unifiedsplit
@@ -321,7 +321,6 @@ binop (o:p) e1 e2
321 case o:p of
321 case o:p of
322 "::" -> jsCons e1 e2
322 "::" -> jsCons e1 e2
323 "++" -> "_L.append" ++ parens (e1 ++ "," ++ e2)
323 "++" -> "_L.append" ++ parens (e1 ++ "," ++ e2)
324− "$" -> e1 ++ parens e2
325 "<|" -> e1 ++ parens e2
324 "<|" -> e1 ++ parens e2
326 "|>" -> e2 ++ parens e1
325 "|>" -> e2 ++ parens e1
327 "." -> jsFunc "x" . ret $ e1 ++ parens (e2 ++ parens "x")
326 "." -> jsFunc "x" . ret $ e1 ++ parens (e2 ++ parens "x")
compiler/Transform/Optimize.hs−1
@@ -126,7 +126,6 @@ binop op ce1@(C t1 s1 e1) ce2@(C t2 s2 e2) =
126
126
127 ("|>", _, _) -> App ce2 ce1
127 ("|>", _, _) -> App ce2 ce1
128 ("<|", _, _) -> App ce1 ce2
128 ("<|", _, _) -> App ce1 ce2
129− ("$", _, _) -> App ce1 ce2
130 (".", _, _) ->
129 (".", _, _) ->
131 Lambda "x" (noContext $
130 Lambda "x" (noContext $
132 App ce1 (noContext $ App ce2 (noContext $ Var "x")))
131 App ce1 (noContext $ App ce2 (noContext $ Var "x")))