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

Make record extension more concise.

Browse source
This commit is contained in:
evancz 2013-01-30 03:56:21 -08:00
parent d0dad209a4
commit ea8ff3835e
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
elm/src/Gen/CompileToJS.hs
View file

@ -182,9 +182,7 @@ recordToJS e cmds =
, ret "r" ]) ++ "()"
addField (x,e) = ((++add) . assign "v") `liftM` toJS' e
where add = concat [ "\nif ('", x, "' in r) {"
, "\n r.", x, " = [v].concat(r.", x, ");"
, "\n} else { r.", x, " = [v]; }" ]
where add = concat [ "\n r.", x, " = '", x, "' in r ? [v].concat(r.", x, ") : [v];" ]
setField (x,e) = do
let rx = "r." ++ x
set <- globalAssign (rx ++ "[0]") `liftM` toJS' e