FlexibleContexts
, UnicodeSyntax
#-}
--- |Aborting the computation of 'Network.HTTP.Lucu.Resource.Resource'
--- in any 'Prelude.IO' monads or arrows.
+-- |Aborting the computation of 'Network.HTTP.Lucu.Rsrc' in any 'IO'
+-- monads.
module Network.HTTP.Lucu.Abortion
( Abortion
, mkAbortion
}
-- |Throw an 'Abortion' in a 'MonadIO', including the very
--- 'Network.HTTP.Lucu.Resource.Resource' monad.
+-- 'Network.HTTP.Lucu.Rsrc' monad.
abort ∷ MonadIO m ⇒ Abortion → m a
{-# INLINE abort #-}
abort = liftIO ∘ throwIO