yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix optimization error.

Browse source
This commit is contained in:
evancz 2012-08-14 20:50:03 +02:00
parent 29cd1355bd
commit 07ff34754a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
elm/src/Gen/CompileToJS.hs
View file

@ -131,7 +131,7 @@ toJS expr =
Binop op e1 e2 -> binop op (toJS e1) (toJS e2) Binop op e1 e2 -> binop op (toJS e1) (toJS e2)
If eb et ef -> parens $ iff (toJS eb) (toJS et) (toJS ef) If eb et ef -> parens $ iff (toJS eb) (toJS et) (toJS ef)
Lambda v e -> jsFunc v $ ret (toJS e) Lambda v e -> jsFunc v $ ret (toJS e)
App (Var "toText") (Str s) -> show s App (Var "toText") (Str s) -> "toText" ++ parens (show s)
App (Var "link") (Str s) -> "link(" ++ show s ++ ")" App (Var "link") (Str s) -> "link(" ++ show s ++ ")"
App (Var "plainText") (Str s) -> "plainText(" ++ show s ++ ")" App (Var "plainText") (Str s) -> "plainText(" ++ show s ++ ")"
App e1 e2 -> toJS e1 ++ parens (toJS e2) App e1 e2 -> toJS e1 ++ parens (toJS e2)