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