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

Restyled by stylish-haskell

Browse Source
This commit is contained in:
Restyled.io 2023-01-30 19:40:39 +00:00
parent a51bbcb3bd
commit dd56b28fc7
2 changed files with 23 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,19 +12,19 @@ module Yesod.Auth.OAuth2.Dispatch
, dispatchAuthRequest , dispatchAuthRequest
) where ) where
import Control.Monad.Except import Control.Monad.Except
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)
import Network.HTTP.Conduit ( Manager ) import Network.HTTP.Conduit (Manager)
import Network.OAuth.OAuth2.Compat import Network.OAuth.OAuth2.Compat
import URI.ByteString.Extension import UnliftIO.Exception
import UnliftIO.Exception import URI.ByteString.Extension
import Yesod.Auth hiding ( ServerError ) import Yesod.Auth hiding (ServerError)
import Yesod.Auth.OAuth2.DispatchError import Yesod.Auth.OAuth2.DispatchError
import Yesod.Auth.OAuth2.ErrorResponse import Yesod.Auth.OAuth2.ErrorResponse
import Yesod.Auth.OAuth2.Random import Yesod.Auth.OAuth2.Random
import Yesod.Core hiding ( ErrorResponse ) import Yesod.Core hiding (ErrorResponse)
-- | How to fetch an @'OAuth2Token'@ -- | How to fetch an @'OAuth2Token'@
-- --

22
src/Yesod/Auth/OAuth2/DispatchError.hs
View File

@ -14,18 +14,16 @@ module Yesod.Auth.OAuth2.DispatchError
, onDispatchError , onDispatchError
) where ) where
import Control.Monad.Except import Control.Monad.Except
import Data.Text ( Text import Data.Text (Text, pack)
, pack import Network.OAuth.OAuth2.Compat (Error)
) import UnliftIO.Except ()
import Network.OAuth.OAuth2.Compat ( Error ) import UnliftIO.Exception
import UnliftIO.Except ( ) import Yesod.Auth hiding (ServerError)
import UnliftIO.Exception import Yesod.Auth.OAuth2.ErrorResponse
import Yesod.Auth hiding ( ServerError ) import Yesod.Auth.OAuth2.Exception
import Yesod.Auth.OAuth2.ErrorResponse import Yesod.Auth.OAuth2.Random
import Yesod.Auth.OAuth2.Exception import Yesod.Core hiding (ErrorResponse)
import Yesod.Auth.OAuth2.Random
import Yesod.Core hiding ( ErrorResponse )
data DispatchError data DispatchError
= MissingParameter Text = MissingParameter Text