[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.

diff --git a/ghc/lib/required/IO.lhs b/ghc/lib/required/IO.lhs
index 8e74a02..97f8f23 100644 (file)
--- 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>>"}