From c0378a2774a400e2992bc57a7ec580df3f142b29 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 28 Nov 2008 13:01:06 +0000
Subject: [PATCH] add missing case to Ord GlobalReg (EagerBlackhole ==
EagerBlackhole)
---
compiler/cmm/CmmExpr.hs | 1 +
1 file changed, 1 insertion(+)
diff --git a/compiler/cmm/CmmExpr.hs b/compiler/cmm/CmmExpr.hs
index 6c38c0361dc..db42564171c 100644
--- 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
--
GitLab