Commit c89b5a19 authored by's avatar
Browse files

Remove GHC.IOBase

It's been deprecated since at least GHC 6.12
parent e6b690d5
{-# LANGUAGE Unsafe #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# OPTIONS_HADDOCK hide #-}
-- |
-- Module : GHC.IOBase
-- Copyright : (c) The University of Glasgow 1994-2009
-- License : see libraries/base/LICENSE
-- Maintainer :
-- Stability : internal
-- Portability : non-portable (GHC Extensions)
-- Backwards-compatibility interface
module GHC.IOBase {-# DEPRECATED "use GHC.IO instead" #-} (
IO(..), unIO, failIO, liftIO, bindIO, thenIO, returnIO,
unsafePerformIO, unsafeInterleaveIO,
unsafeDupablePerformIO, unsafeDupableInterleaveIO,
-- To and from from ST
stToIO, ioToST, unsafeIOToST, unsafeSTToIO,
-- References
IORef(..), newIORef, readIORef, writeIORef,
IOArray(..), newIOArray, readIOArray, writeIOArray, unsafeReadIOArray, unsafeWriteIOArray,
-- Handles, file descriptors,
Handle(..), Handle__(..), HandleType(..), IOMode(..), FD,
isReadableHandleType, isWritableHandleType, isReadWriteHandleType, showHandle,
-- Buffers
-- Buffer(..), RawBuffer, BufferState(..),
BufferList(..), BufferMode(..),
--bufferIsWritable, bufferEmpty, bufferFull,
-- Exceptions
Exception(..), ArithException(..), AsyncException(..), ArrayException(..),
stackOverflow, heapOverflow, ioException,
IOError, IOException(..), IOErrorType(..), ioError, userError,
throwIO, block, unblock, blocked, catchAny, catchException,
ErrorCall(..), AssertionFailed(..), assertError, untangle,
BlockedOnDeadMVar(..), BlockedIndefinitely(..), Deadlock(..),
blockedOnDeadMVar, blockedIndefinitely
) where
import GHC.Base
import GHC.Exception
import GHC.IO
import GHC.IO.Handle.Types
import GHC.IO.IOMode
import GHC.IO.Exception
import GHC.IOArray
import GHC.IORef
import GHC.MVar
import Foreign.C.Types
import Data.Typeable
type FD = CInt
-- Backwards compat: this was renamed to BlockedIndefinitelyOnMVar
data BlockedOnDeadMVar = BlockedOnDeadMVar
deriving Typeable
instance Exception BlockedOnDeadMVar
instance Show BlockedOnDeadMVar where
showsPrec _ BlockedOnDeadMVar = showString "thread blocked indefinitely"
blockedOnDeadMVar :: SomeException -- for the RTS
blockedOnDeadMVar = toException BlockedOnDeadMVar
-- Backwards compat: this was renamed to BlockedIndefinitelyOnSTM
data BlockedIndefinitely = BlockedIndefinitely
deriving Typeable
instance Exception BlockedIndefinitely
instance Show BlockedIndefinitely where
showsPrec _ BlockedIndefinitely = showString "thread blocked indefinitely"
blockedIndefinitely :: SomeException -- for the RTS
blockedIndefinitely = toException BlockedIndefinitely
......@@ -83,7 +83,6 @@ Library {
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment