diff options
Diffstat (limited to 'compiler/GHC/Data')
-rw-r--r-- | compiler/GHC/Data/Graph/Color.hs | 3 | ||||
-rw-r--r-- | compiler/GHC/Data/Graph/Ops.hs | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/compiler/GHC/Data/Graph/Color.hs b/compiler/GHC/Data/Graph/Color.hs index 496f98b205..7429ad3317 100644 --- a/compiler/GHC/Data/Graph/Color.hs +++ b/compiler/GHC/Data/Graph/Color.hs @@ -328,8 +328,7 @@ selectColor colors graph u -- See Note [Unique Determinism and code generation] colors_conflict = mkUniqSet - $ catMaybes - $ map nodeColor nsConflicts + $ mapMaybe nodeColor nsConflicts -- the prefs of our neighbors colors_neighbor_prefs diff --git a/compiler/GHC/Data/Graph/Ops.hs b/compiler/GHC/Data/Graph/Ops.hs index d2671f252d..dc90b9e5ad 100644 --- a/compiler/GHC/Data/Graph/Ops.hs +++ b/compiler/GHC/Data/Graph/Ops.hs @@ -633,7 +633,7 @@ checkNode graph node $ nonDetEltsUniqSet $ nodeConflicts node -- See Note [Unique Determinism and code generation] - , neighbourColors <- catMaybes $ map nodeColor neighbors + , neighbourColors <- mapMaybe nodeColor neighbors , elem color neighbourColors = False |