X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FIdInfo.lhs;h=26fe4531ae44ed3a50aa26a79c2c3b96f7dbf635;hp=1ebfcf9a78574f36b9444abf3874a6832017bb4d;hb=e79c9ce01d0ce4412bd4bcd99c8c728a6a2ec569;hpb=2e06595241350a6548b6ab6430c65d6458f7c197

diff --git a/compiler/basicTypes/IdInfo.lhs b/compiler/basicTypes/IdInfo.lhs
index 1ebfcf9..26fe453 100644
--- a/compiler/basicTypes/IdInfo.lhs
+++ b/compiler/basicTypes/IdInfo.lhs
@@ -623,6 +623,7 @@ data CafInfo
 
 	| NoCafRefs			-- ^ A function or static constructor
 				        -- that refers to no CAFs.
+        deriving (Eq, Ord)
 
 -- | Assumes that the 'Id' has CAF references: definitely safe
 vanillaCafInfo :: CafInfo