/usr/web/sources/contrib/fernan/nhc98/src/prelude/IO/Eq_Handle.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/IO/Eq_Handle.hs


module IO(Eq(..)) where

import DHandle
import NHC.FFI


foreign import ccall primEqHandleC     :: ForeignObj -> ForeignObj -> Bool

instance Eq Handle where
  (Handle h)  == (Handle j)   =   primEqHandleC h j

(Return to Plan 9 Home Page)