git.iko.soy/elk
on master help sign in
Take out parens for record access. I am only fairly certain that this is okay.
ebb570devancz
compiler/Gen/CompileToJS.hs+1−1
compare with master
unifiedsplit
@@ -184,7 +184,7 @@ remove x e = "_N.remove('" ++ x ++ "', " ++ e ++ ")"
184addField x v e = "_N.insert('" ++ x ++ "', " ++ v ++ ", " ++ e ++ ")"
184addField x v e = "_N.insert('" ++ x ++ "', " ++ v ++ ", " ++ e ++ ")"
185setField fs e = "_N.replace(" ++ jsList (map f fs) ++ ", " ++ e ++ ")"
185setField fs e = "_N.replace(" ++ jsList (map f fs) ++ ", " ++ e ++ ")"
186 where f (x,v) = "['" ++ x ++ "'," ++ v ++ "]"
186 where f (x,v) = "['" ++ x ++ "'," ++ v ++ "]"
187−access x e = parens e ++ "." ++ x
187+access x e = e ++ "." ++ x
188makeRecord kvs = record `liftM` collect kvs
188makeRecord kvs = record `liftM` collect kvs
189 where
189 where
190 combine r (k,v) = Map.insertWith (++) k v r
190 combine r (k,v) = Map.insertWith (++) k v r