add missing case to Ord GlobalReg (EagerBlackhole == EagerBlackhole)

c0378a27 · Simon Marlow · dc667ab5 · c0378a27
Commit c0378a27 authored Nov 28, 2008 by Simon Marlow
--- a/compiler/cmm/CmmExpr.hs
+++ b/compiler/cmm/CmmExpr.hs
@@ -387,6 +387,7 @@ instance Ord GlobalReg where
   compare CurrentTSO CurrentTSO = EQ
   compare CurrentNursery CurrentNursery = EQ
   compare HpAlloc HpAlloc = EQ
+   compare EagerBlackholeInfo EagerBlackholeInfo = EQ
   compare GCEnter1 GCEnter1 = EQ
   compare GCFun GCFun = EQ
   compare BaseReg BaseReg = EQ