@@ -131,7 +131,7 @@ toJS expr =
131131 Binop op e1 e2 -> binop op (toJS e1) (toJS e2)
132132 If eb et ef -> parens $ iff (toJS eb) (toJS et) (toJS ef)
133133 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)
135135 App (Var "link") (Str s) -> "link(" ++ show s ++ ")"
136136 App (Var "plainText") (Str s) -> "plainText(" ++ show s ++ ")"
137137 App e1 e2 -> toJS e1 ++ parens (toJS e2)