@@ -385,11 +385,11 @@ translateExpression (SForeign _ _ fun args)
385 , (obj:as) <- args =
385 , (obj:as) <- args =
386 concat [object obj, method, arguments as]
386 concat [object obj, method, arguments as]
388− | "[]=" == fun
388+ | "[]=" `isSuffixOf` fun
389 , (idx:val:[]) <- args =
389 , (idx:val:[]) <- args =
390 concat [array, index idx, assign val]
390 concat [array, index idx, assign val]
392− | "[]" == fun
392+ | "[]" `isSuffixOf` fun
393 , (idx:[]) <- args =
393 , (idx:[]) <- args =
394 array ++ index idx
394 array ++ index idx