yesod-auth-oauth2-0.7.1.1: src/UnliftIO/Except.hs

{-# OPTIONS_GHC -Wno-orphans #-}

module UnliftIO.Except () where

import Control.Monad ((<=<))
import Control.Monad.Except (ExceptT (..), runExceptT)
import UnliftIO

instance (MonadUnliftIO m, Exception e) => MonadUnliftIO (ExceptT e m) where
  withRunInIO exceptToIO = ExceptT $ try $ do
    withRunInIO $ \runInIO ->
      exceptToIO (runInIO . (either throwIO pure <=< runExceptT))