From d1ac412ae092ee97cf0b6b260dd3b247234df2fd Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Wed, 28 Jan 1998 10:42:52 +0000
Subject: [PATCH] [project @ 1998-01-28 10:42:52 by simonm] Bring back old
equality instance for Handles (replaced in rev 1.16) in the concurrent case,
since Eq isn't defined over MVars.
---
ghc/lib/required/IO.lhs | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/ghc/lib/required/IO.lhs b/ghc/lib/required/IO.lhs
index 8e74a02a3928..97f8f2323b57 100644
--- a/ghc/lib/required/IO.lhs
+++ b/ghc/lib/required/IO.lhs
@@ -106,11 +106,17 @@ instance Eq IOError where
(IOError h1 e1 str1) == (IOError h2 e2 str2) =
e1==e2 && str1==str2 && h1==h2
+#ifndef __CONCURRENT_HASKELL__
+
instance Eq Handle where
(Handle h1) == (Handle h2) = h1 == h2
+#else
+
{- OLD equality instance. The simpler one above
- seems more accurate!
+ seems more accurate! This one is still used for concurrent haskell,
+ since there's no equality instance over MVars.
+-}
instance Eq Handle where
h1 == h2 =
@@ -129,7 +135,7 @@ instance Eq Handle where
(AppendHandle v1 _ _ , AppendHandle v2 _ _) -> v1 == v2
(ReadWriteHandle v1 _ _ , ReadWriteHandle v2 _ _) -> v1 == v2
_ -> False))
--}
+#endif {- __CONCURRENT_HASKELL__ -}
instance Show Handle where {showsPrec p h = showString "<<Handle>>"}
--
GitLab