git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Merge pull request #2391 from rightfold/master

Support record updates on records with field named hasOwnProperty

commitc2bd953d5b7085553c7d84954bde091162ac1ad4 authorPhil Freeman <paf31@cantab.net> dateFri 23 Dec 2016, 10:20 (10 years ago) parent39a1b434f2959a
2 files changed+6−1
compare with golang
unifiedsplit
examples/passing/HasOwnProperty.purs+5 src/Language/PureScript/CodeGen/JS.hs+1−1
examples/passing/HasOwnProperty.pursnew file+5
@@ -0,0 +1,5 @@
1+module Main where
2+
3+import Control.Monad.Eff.Console (log)
4+
5+main = log ({hasOwnProperty: "Hi"} {hasOwnProperty = "Done"}).hasOwnProperty
src/Language/PureScript/CodeGen/JS.hs+1−1
@@ -293,7 +293,7 @@ moduleToJs (Module coms mn imps exps foreigns decls) foreign_ =
293293 evaluate = JSVariableIntroduction Nothing evaluatedObj (Just obj)
294294 objAssign = JSVariableIntroduction Nothing newObj (Just $ JSObjectLiteral Nothing [])
295295 copy = JSForIn Nothing key jsEvaluatedObj $ JSBlock Nothing [JSIfElse Nothing cond assign Nothing]
296− cond = JSApp Nothing (JSAccessor Nothing "hasOwnProperty" jsEvaluatedObj) [jsKey]
296+ cond = JSApp Nothing (JSAccessor Nothing "call" (JSAccessor Nothing "hasOwnProperty" (JSObjectLiteral Nothing []))) [jsEvaluatedObj, jsKey]
297297 assign = JSBlock Nothing [JSAssignment Nothing (JSIndexer Nothing jsKey jsNewObj) (JSIndexer Nothing jsKey jsEvaluatedObj)]
298298 stToAssign (s, js) = JSAssignment Nothing (accessorString s jsNewObj) js
299299 extend = map stToAssign sts