Skip to content
Snippets Groups Projects
Commit 7dc82d64 authored by Ben Gamari's avatar Ben Gamari
Browse files

nativeGen: Use foldl' instead of foldl

parent 55e621c3
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
compiler/nativeGen/AsmCodeGen.hs
+ 1
− 1
View file @ 7dc82d64
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment