diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-09-15 13:05:34 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-09-17 09:44:53 -0400 |
| commit | 44e7120dacad683829194b0dbedcfb679d5ffe93 (patch) | |
| tree | dce524892af2e6d336e5023d180fb0711f5ca1c2 /compiler | |
| parent | 9eff805a622db499be1fda304e11bb3e6c8d37f0 (diff) | |
| download | haskell-44e7120dacad683829194b0dbedcfb679d5ffe93.tar.gz | |
Code Gen: Replace another lazy fmap with strict mapMap
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/GHC/CmmToAsm/CFG.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/CmmToAsm/CFG.hs b/compiler/GHC/CmmToAsm/CFG.hs index 43c0764bad..5c1f23ceab 100644 --- a/compiler/GHC/CmmToAsm/CFG.hs +++ b/compiler/GHC/CmmToAsm/CFG.hs @@ -370,7 +370,7 @@ delEdge from to m = delNode :: BlockId -> CFG -> CFG delNode node cfg = - fmap (mapDelete node) -- < Edges to the node + mapMap (mapDelete node) -- < Edges to the node (mapDelete node cfg) -- < Edges from the node -- | Destinations from bid ordered by weight (descending) |