Import Control.Monad functions directly

Newer Control.Monad.Except no longer re-exports these things. Using
targeted imports keeps this working in those versions.
This commit is contained in:
patrick brisbin 2023-08-01 08:25:39 -04:00 committed by Pat Brisbin
parent 3daf382e46
commit cd3d377e83
2 changed files with 4 additions and 2 deletions

View File

@ -2,7 +2,8 @@
module UnliftIO.Except () where
import Control.Monad.Except
import Control.Monad ((<=<))
import Control.Monad.Except (ExceptT (..), runExceptT)
import UnliftIO
instance (MonadUnliftIO m, Exception e) => MonadUnliftIO (ExceptT e m) where

View File

@ -12,7 +12,8 @@ module Yesod.Auth.OAuth2.Dispatch
, dispatchAuthRequest
) where
import Control.Monad.Except
import Control.Monad (unless)
import Control.Monad.Except (MonadError (..))
import Data.Text (Text)
import qualified Data.Text as T
import Data.Text.Encoding (encodeUtf8)