diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-09-15 13:05:34 +0100 |
|---|---|---|
| committer | Zubin Duggal <zubin.duggal@gmail.com> | 2021-10-12 14:54:34 +0530 |
| commit | 99e224f39d981c323b0bb8017fdf240a8e7824c6 (patch) | |
| tree | 9f770c56d272996e6e97f4308ee42e10e9460cac | |
| parent | a54e54fa4b121c0210f55e5d6e338d7af6e6922b (diff) | |
| download | haskell-99e224f39d981c323b0bb8017fdf240a8e7824c6.tar.gz | |
Code Gen: Replace another lazy fmap with strict mapMap
(cherry picked from commit 44e7120dacad683829194b0dbedcfb679d5ffe93)
| -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 63b488d482..0ca352454b 100644 --- a/compiler/GHC/CmmToAsm/CFG.hs +++ b/compiler/GHC/CmmToAsm/CFG.hs @@ -373,7 +373,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) |