Moved Eq HandlePosn instance to IO
\begin{code}
data HandlePosn = HandlePosn Handle Int
\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}
data SeekMode = AbsoluteSeek | RelativeSeek | SeekFromEnd
deriving (Eq, Ord, Ix, Enum, Read, Show)
\end{code}