@@ -402,7 +402,7 @@ translateExpression (SForeign _ _ fun args)
402 array = name
402 array = name
403 object o = translateVariableName (snd o)
403 object o = translateVariableName (snd o)
404 index i = "[" ++ translateVariableName (snd i) ++ "]"
404 index i = "[" ++ translateVariableName (snd i) ++ "]"
405− assign v = '=' : translateVariableName (snd v)
405+ assign v = '=' : generateWrapper v
406 arguments as =
406 arguments as =
407 '(' : intercalate "," (map generateWrapper as) ++ ")"
407 '(' : intercalate "," (map generateWrapper as) ++ ")"