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

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


module IO (hClose,hCloseC) where

import DHandle
import NHC.FFI

foreign import ccall hCloseC :: ForeignObj -> IO ()

hClose                :: Handle -> IO () 
hClose (Handle f) = freeForeignObj f
--hClose (Handle f) = hCloseC f

(Return to Plan 9 Home Page)