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

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


module IO(Show(..)) where

import DHandle
import HGetFileName

instance Show Handle where
  showsPrec _ h = showString "(Handle for file " . shows (hGetFileName h)
		. showString ")"

  showsType h = showString "Handle"

(Return to Plan 9 Home Page)