haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-04-29 22:24:56 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Import Control.Monad functions directly

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/UnliftIO/Except.hs
View File

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

3
src/Yesod/Auth/OAuth2/Dispatch.hs
View File

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