nativeGen: Use foldl' instead of foldl

7dc82d64 · Ben Gamari · 55e621c3 · 7dc82d64
Commit 7dc82d64 authored Nov 27, 2017 by Ben Gamari 🐢
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/nativeGen/AsmCodeGen.hs compiler/nativeGen/AsmCodeGen.hs +1 -1

No files found.
--- 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