diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-11-27 20:02:55 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-11-28 15:49:55 -0500 |
| commit | 7dc82d64014a4c5d87095537c20729da7cc65137 (patch) | |
| tree | 74f71f2e12921f2fe3d326d750d061dc4f4492cd /compiler | |
| parent | 55e621c38d51e1b1969f3477d07028cca87c71de (diff) | |
| download | haskell-7dc82d64014a4c5d87095537c20729da7cc65137.tar.gz | |
nativeGen: Use foldl' instead of foldl
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/nativeGen/AsmCodeGen.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/AsmCodeGen.hs b/compiler/nativeGen/AsmCodeGen.hs index d11eada205..6b20a12016 100644 --- a/compiler/nativeGen/AsmCodeGen.hs +++ b/compiler/nativeGen/AsmCodeGen.hs @@ -972,7 +972,7 @@ build_mapping ncgImpl (CmmProc info lbl live (ListGraph (head:blocks))) has_info l = mapMember l info -- build a mapping from BlockId to JumpDest for shorting branches - mapping = foldl add emptyUFM shortcut_blocks + mapping = foldl' add emptyUFM shortcut_blocks add ufm (id,dest) = addToUFM ufm id dest apply_mapping :: NcgImpl statics instr jumpDest |