@@ -385,11 +385,11 @@ translateExpression (SForeign _ _ fun args)
385385 , (obj:as) <- args =
386386 concat [object obj, method, arguments as]
387387
388− | "[]=" == fun
388+ | "[]=" `isSuffixOf` fun
389389 , (idx:val:[]) <- args =
390390 concat [array, index idx, assign val]
391391
392− | "[]" == fun
392+ | "[]" `isSuffixOf` fun
393393 , (idx:[]) <- args =
394394 array ++ index idx
395395