From 280ab1d20ac18603ace6b1c62b5e83a6d6200e75 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Tue, 26 Nov 2002 17:32:33 +0000
Subject: [PATCH] [project @ 2002-11-26 17:32:33 by ross] added missing _ == _
 = False to Eq Exception.

---
 GHC/IOBase.lhs |    1 +
 1 file changed, 1 insertion(+)

diff --git a/GHC/IOBase.lhs b/GHC/IOBase.lhs
index 690da24..9659fdb 100644
--- a/GHC/IOBase.lhs
+++ b/GHC/IOBase.lhs
@@ -651,6 +651,7 @@ instance Eq Exception where
   BlockedOnDeadMVar   == BlockedOnDeadMVar   = True
   NonTermination      == NonTermination      = True
   Deadlock            == Deadlock            = True
+  _                   == _                   = False
 
 -- -----------------------------------------------------------------------------
 -- The ExitCode type
-- 
1.7.10.4