From: sof <unknown>
Date: Mon, 25 Aug 1997 22:40:33 +0000 (+0000)
Subject: [project @ 1997-08-25 22:40:33 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~89
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=02b756937b7e8dc3dda12ee65f9e03dab0b0c982;p=ghc-hetmet.git

[project @ 1997-08-25 22:40:33 by sof]
Moved Eq HandlePosn instance to IO
---

diff --git a/ghc/lib/ghc/IOHandle.lhs b/ghc/lib/ghc/IOHandle.lhs
index c367403..b320391 100644
--- a/ghc/lib/ghc/IOHandle.lhs
+++ b/ghc/lib/ghc/IOHandle.lhs
@@ -510,8 +510,6 @@ hFlush handle =
 \begin{code}
 data HandlePosn = HandlePosn Handle Int
 
-instance Eq HandlePosn{-partain-}
-
 data SeekMode    =  AbsoluteSeek | RelativeSeek | SeekFromEnd
                     deriving (Eq, Ord, Ix, Enum, Read, Show)
 \end{code}