yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #130 from ngunn/dev

Browse source 
Singleton Nil consequential change to compiler (minor)
This commit is contained in:
Evan Czaplicki 2013-03-25 18:16:13 -07:00
commit 3759543128
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
compiler/Gen/CompileToJS.hs
View file

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