Cure space leak in coloring register allocator

[ghc-hetmet.git] / compiler / nativeGen / GraphColor.hs

diff --git a/compiler/nativeGen/GraphColor.hs b/compiler/nativeGen/GraphColor.hs
index a0c54e4..c33286b 100644 (file)
--- a/compiler/nativeGen/GraphColor.hs
+++ b/compiler/nativeGen/GraphColor.hs
@@ -78,7 +78,7 @@ colorGraph colors triv spill graph0
                        $$ dotGraph (\x -> text "white") triv graph1) -}
 
         else   ( graph_prob
-               , mkUniqSet ksNoColor
+               , mkUniqSet ksNoColor
                , listToUFM rsCoalesce)