haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-03-06 13:24:36 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Restyled by brittany

Browse Source
This commit is contained in:
Restyled.io 2023-01-30 19:40:38 +00:00
parent cf43baac7a
commit a51bbcb3bd
2 changed files with 25 additions and 23 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 URI.ByteString.Extension
import UnliftIO.Exception import UnliftIO.Exception
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,16 +14,18 @@ module Yesod.Auth.OAuth2.DispatchError
, onDispatchError , onDispatchError
) where ) where
import Control.Monad.Except import Control.Monad.Except
import Data.Text (Text, pack) import Data.Text ( Text
import Network.OAuth.OAuth2.Compat (Error) , pack
import UnliftIO.Except () )
import UnliftIO.Exception import Network.OAuth.OAuth2.Compat ( Error )
import Yesod.Auth hiding (ServerError) import UnliftIO.Except ( )
import Yesod.Auth.OAuth2.ErrorResponse import UnliftIO.Exception
import Yesod.Auth.OAuth2.Exception import Yesod.Auth hiding ( ServerError )
import Yesod.Auth.OAuth2.Random import Yesod.Auth.OAuth2.ErrorResponse
import Yesod.Core hiding (ErrorResponse) import Yesod.Auth.OAuth2.Exception
import Yesod.Auth.OAuth2.Random
import Yesod.Core hiding ( ErrorResponse )
data DispatchError data DispatchError
= MissingParameter Text = MissingParameter Text