diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-12-12 11:51:20 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-12-12 11:51:20 +0300 |
| commit | ded4a1db4d61b1bc8b5fd73e8eb87cf572efda35 (patch) | |
| tree | cb487b738fc66eb34394f85a66d548a04dd33178 /compiler/codeGen | |
| parent | 65fb69b78f4850b56ee6a2655bc5dc6c441a984e (diff) | |
| download | haskell-ded4a1db4d61b1bc8b5fd73e8eb87cf572efda35.tar.gz | |
Typo fix, replace a foldl with foldl'
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmEnv.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs index f27728189f..e605762f1f 100644 --- a/compiler/codeGen/StgCmmEnv.hs +++ b/compiler/codeGen/StgCmmEnv.hs @@ -114,9 +114,9 @@ addBindC stuff_to_bind = do addBindsC :: [CgIdInfo] -> FCode () addBindsC new_bindings = do binds <- getBinds - let new_binds = foldl (\ binds info -> extendVarEnv binds (cg_id info) info) - binds - new_bindings + let new_binds = foldl' (\ binds info -> extendVarEnv binds (cg_id info) info) + binds + new_bindings setBinds new_binds getCgIdInfo :: Id -> FCode CgIdInfo |