From 07ff34754a179b9f21f61e6add464bca6e787321 Mon Sep 17 00:00:00 2001 From: evancz Date: Tue, 14 Aug 2012 20:50:03 +0200 Subject: [PATCH] Fix optimization error. --- elm/src/Gen/CompileToJS.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/elm/src/Gen/CompileToJS.hs b/elm/src/Gen/CompileToJS.hs index b0a7fe0..c422375 100644 --- a/elm/src/Gen/CompileToJS.hs +++ b/elm/src/Gen/CompileToJS.hs @@ -131,7 +131,7 @@ toJS expr = Binop op e1 e2 -> binop op (toJS e1) (toJS e2) If eb et ef -> parens $ iff (toJS eb) (toJS et) (toJS ef) 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 "plainText") (Str s) -> "plainText(" ++ show s ++ ")" App e1 e2 -> toJS e1 ++ parens (toJS e2)