mirror of
https://github.com/freckle/yesod-auth-oauth2.git
synced 2026-04-28 21:57:46 +02:00
Restyled by stylish-haskell
This commit is contained in:
parent
a20f38ff18
commit
6292de21c6
@ -18,8 +18,8 @@ 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
|
||||||
|
|||||||
@ -37,7 +37,7 @@ pluginName = "okta"
|
|||||||
-- | Creates an Okta 'AuthPlugin' for application using the default scopes.
|
-- | Creates an Okta 'AuthPlugin' for application using the default scopes.
|
||||||
oauth2Okta
|
oauth2Okta
|
||||||
:: YesodAuth m
|
:: YesodAuth m
|
||||||
=>
|
=>
|
||||||
-- | Prompt login on authorize redirect
|
-- | Prompt login on authorize redirect
|
||||||
Bool
|
Bool
|
||||||
->
|
->
|
||||||
@ -61,7 +61,7 @@ oauth2Okta = oauth2OktaWithScopes defaultOktaScopes
|
|||||||
-- | Creates an Okta 'AuthPlugin' for application with access to the provided scopes.
|
-- | Creates an Okta 'AuthPlugin' for application with access to the provided scopes.
|
||||||
oauth2OktaWithScopes
|
oauth2OktaWithScopes
|
||||||
:: YesodAuth m
|
:: YesodAuth m
|
||||||
=>
|
=>
|
||||||
-- | The scopes accessible to the 'AuthPlugin'
|
-- | The scopes accessible to the 'AuthPlugin'
|
||||||
[Text]
|
[Text]
|
||||||
->
|
->
|
||||||
|
|||||||
@ -14,7 +14,7 @@ module Yesod.Auth.OAuth2.Slack
|
|||||||
import Yesod.Auth.OAuth2.Prelude
|
import Yesod.Auth.OAuth2.Prelude
|
||||||
|
|
||||||
import Network.HTTP.Client
|
import Network.HTTP.Client
|
||||||
(httpLbs, parseUrlThrow, responseBody, setQueryString)
|
(httpLbs, parseUrlThrow, responseBody, setQueryString)
|
||||||
import Yesod.Auth.OAuth2.Exception as YesodOAuth2Exception
|
import Yesod.Auth.OAuth2.Exception as YesodOAuth2Exception
|
||||||
|
|
||||||
data SlackScope
|
data SlackScope
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user