@@ -223,8 +223,11 @@ instance ToJS Expr where
223 Let defs e -> jsLet defs e
223 Let defs e -> jsLet defs e
224 Data name es ->
224 Data name es ->
225 do fs <- mapM toJS' es
225 do fs <- mapM toJS' es
226+ return $ case name of
228+ "Cons" -> jsCons (head fs) ((head . tail) fs)
229+ _ -> brackets $ "ctor:" ++ show name ++ concatMap (", "++) fields
226− let fields = zipWith (\n e -> "_" ++ show n ++ ":" ++ e) [0..] fs
230+ where fields = zipWith (\n e -> "_" ++ show n ++ ":" ++ e) [0..] fs
227− return (brackets ("ctor:" ++ show name ++ concatMap (", "++) fields))
229 Markdown doc -> return $ "text('" ++ pad ++ md ++ pad ++ "')"
232 Markdown doc -> return $ "text('" ++ pad ++ md ++ pad ++ "')"
230 where pad = "<div style=\"height:0;width:0;\"> </div>"
233 where pad = "<div style=\"height:0;width:0;\"> </div>"