@@ -184,7 +184,7 @@ remove x e = "_N.remove('" ++ x ++ "', " ++ e ++ ")"
184184addField x v e = "_N.insert('" ++ x ++ "', " ++ v ++ ", " ++ e ++ ")"
185185setField fs e = "_N.replace(" ++ jsList (map f fs) ++ ", " ++ e ++ ")"
186186 where f (x,v) = "['" ++ x ++ "'," ++ v ++ "]"
187−access x e = parens e ++ "." ++ x
187+access x e = e ++ "." ++ x
188188makeRecord kvs = record `liftM` collect kvs
189189 where
190190 combine r (k,v) = Map.insertWith (++) k v r