module Exceptions
( module Control.Exception.Safe
, note
) where
import Control.Exception.Safe (Exception, MonadCatch, MonadMask (..),
MonadThrow, SomeException (..), bracket,
bracket_, catch, catchAny, finally, throwM)
import Control.Applicative (Applicative (pure))
import Control.Monad.Except (MonadError, throwError)
import Data.Maybe (Maybe, maybe)
#if ( __GLASGOW_HASKELL__ >= 800 )
note :: (MonadError e m) => e -> Maybe a -> m a
note err = maybe (throwError err) pure
#else
note :: (MonadError e m, Applicative m) => e -> Maybe a -> m a
note err = maybe (throwError err) pure
#endif