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

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


module IO (ioeGetHandle) where

import DHandle
import DIOError

ioeGetHandle :: IOError -> Maybe Handle
ioeGetHandle (IOError cmd maybefile maybehandle errno) = maybehandle
ioeGetHandle (EOFError op handle)                      = Just handle
ioeGetHandle _                                         = Nothing

(Return to Plan 9 Home Page)