diff options
| -rw-r--r-- | compiler/GHC/CmmToAsm/CFG.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/compiler/GHC/CmmToAsm/CFG.hs b/compiler/GHC/CmmToAsm/CFG.hs index 99df21c46b..e992116117 100644 --- a/compiler/GHC/CmmToAsm/CFG.hs +++ b/compiler/GHC/CmmToAsm/CFG.hs @@ -387,10 +387,7 @@ addWeightEdge from to weight cfg = delEdge :: BlockId -> BlockId -> CFG -> CFG delEdge from to m = - mapAlter remDest from m - where - remDest Nothing = Nothing - remDest (Just wm) = Just $ mapDelete to wm + mapAdjust (mapDelete to) from m -- | Destinations from bid ordered by weight (descending) |