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