From: ross <unknown>
Date: Tue, 26 Nov 2002 17:32:33 +0000 (+0000)
Subject: [project @ 2002-11-26 17:32:33 by ross]
X-Git-Tag: nhc98-1-18-release~793
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=280ab1d20ac18603ace6b1c62b5e83a6d6200e75;p=ghc-base.git

[project @ 2002-11-26 17:32:33 by ross]
added missing _ == _ = False to Eq Exception.
---

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