Commit 55e621c3 authored by Ben Gamari's avatar Ben Gamari 🐢
Browse files

nativeGen: Use plusUFMList instead of foldr

parent 16dd532e
......@@ -938,7 +938,7 @@ shortcutBranches dflags ncgImpl tops
| otherwise = map (apply_mapping ncgImpl mapping) tops'
(tops', mappings) = mapAndUnzip (build_mapping ncgImpl) tops
mapping = foldr plusUFM emptyUFM mappings
mapping = plusUFMList mappings
build_mapping :: NcgImpl statics instr jumpDest
-> GenCmmDecl d (LabelMap t) (ListGraph instr)
Markdown is supported
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