/usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeIO/IoError.hs

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


module Prelude (ioError) where

import NHC.Internal (IO(..))

ioError :: IOError -> IO a
ioError e = IO ( const (Left e) )
        --  IO ( \ world -> Left e )	-- const is better for nice tracing

(Return to Plan 9 Home Page)