haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-09-09 03:13:49 +02:00
Code Issues Actions 1 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

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

@ -13,18 +13,18 @@ module Yesod.Auth.OAuth2.Dispatch
) where
import Control.Monad.Except
import Data.Text (Text)
import Data.Text ( Text )
import qualified Data.Text as T
import Data.Text.Encoding (encodeUtf8)
import Network.HTTP.Conduit (Manager)
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 hiding ( ServerError )
import Yesod.Auth.OAuth2.DispatchError
import Yesod.Auth.OAuth2.ErrorResponse
import Yesod.Auth.OAuth2.Random
import Yesod.Core hiding (ErrorResponse)
import Yesod.Core hiding ( ErrorResponse )
-- | How to fetch an @'OAuth2Token'@
--

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

@ -15,15 +15,17 @@ module Yesod.Auth.OAuth2.DispatchError
) where
import Control.Monad.Except
import Data.Text (Text, pack)
import Network.OAuth.OAuth2.Compat (Error)
import UnliftIO.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 hiding ( ServerError )
import Yesod.Auth.OAuth2.ErrorResponse
import Yesod.Auth.OAuth2.Exception
import Yesod.Auth.OAuth2.Random
import Yesod.Core hiding (ErrorResponse)
import Yesod.Core hiding ( ErrorResponse )
data DispatchError
= MissingParameter Text