X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCmmExpr.hs;fp=compiler%2Fcmm%2FCmmExpr.hs;h=6c38c0361dc03e4a056e3974b5c10064cbc83bd1;hp=6e09a6f128739b09e553a71cdf79fb55fa14ba65;hb=df54e4b621b1d2a8e30b01b3e93494a515d09f48;hpb=a76ba381f76fd9a5178e815206466a97dab46f75

diff --git a/compiler/cmm/CmmExpr.hs b/compiler/cmm/CmmExpr.hs
index 6e09a6f..6c38c03 100644
--- a/compiler/cmm/CmmExpr.hs
+++ b/compiler/cmm/CmmExpr.hs
@@ -419,6 +419,8 @@ instance Ord GlobalReg where
    compare _ GCFun = GT
    compare BaseReg _ = LT
    compare _ BaseReg = GT
+   compare EagerBlackholeInfo _ = LT
+   compare _ EagerBlackholeInfo = GT
 
 -- convenient aliases
 spReg, hpReg, spLimReg, nodeReg :: CmmReg