diff options
| -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) |