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
parent be5751a195
commit a2e32f0f9a
No known key found for this signature in database
GPG Key ID: 07BF97A312D7F34C
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)