Prelude.hs

{-# language Safe #-}

module LazyAsync.Prelude (module X) where

import Control.Exception as X (Exception, SomeException, toException)
import Data.Bool         as X (Bool (..))
import Data.Either       as X (Either (..))
import Data.Foldable     as X (Foldable)
import Data.Functor      as X (Functor, fmap, (<&>))
import Data.Maybe        as X (Maybe (..))
import Data.Traversable  as X (Traversable, sequenceA, traverse)
import System.IO         as X (IO)
import Text.Show         as X (Show)

import Control.Applicative as X (Alternative (empty, (<|>)),
                                 Applicative (pure, (<*>)), empty, liftA2, pure,
                                 (*>), (<*>), (<|>))

import Control.Concurrent.STM      as X (STM, atomically, check, retry)
import Control.Concurrent.STM.TVar as X (TVar, newTVarIO, readTVar, writeTVar)

import Control.Monad               as X (return, (=<<), (>=>), (>>=))
import Control.Monad.Base          as X (MonadBase, liftBase)
import Control.Monad.Catch         as X (MonadThrow, throwM)
import Control.Monad.IO.Class      as X (MonadIO, liftIO)
import Control.Monad.Trans.Class   as X (lift)
import Control.Monad.Trans.Cont    as X (ContT (ContT), evalContT, runContT)
import Control.Monad.Trans.Control as X (MonadBaseControl (StM, liftBaseWith, restoreM))