haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-01-11 19:58:28 +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
) where
import Control.Monad.Except
import Data.Text (Text)
import qualified Data.Text as T
import Data.Text.Encoding (encodeUtf8)
import Network.HTTP.Conduit (Manager)
import Network.OAuth.OAuth2.Compat
import URI.ByteString.Extension
import UnliftIO.Exception
import Yesod.Auth hiding (ServerError)
import Yesod.Auth.OAuth2.DispatchError
import Yesod.Auth.OAuth2.ErrorResponse
import Yesod.Auth.OAuth2.Random
import Yesod.Core hiding (ErrorResponse)
import Control.Monad.Except
import Data.Text ( Text )
import qualified Data.Text as T
import Data.Text.Encoding ( encodeUtf8 )
import Network.HTTP.Conduit ( Manager )
import Network.OAuth.OAuth2.Compat
import URI.ByteString.Extension
import UnliftIO.Exception
import Yesod.Auth hiding ( ServerError )
import Yesod.Auth.OAuth2.DispatchError
import Yesod.Auth.OAuth2.ErrorResponse
import Yesod.Auth.OAuth2.Random
import Yesod.Core hiding ( ErrorResponse )
-- | How to fetch an @'OAuth2Token'@
--

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

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