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

Restyled by fourmolu

Browse Source
This commit is contained in:
Restyled.io 2024-02-21 23:24:50 +00:00 committed by Pat Brisbin
parent 730909a7cd
commit a36d17f7a5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Yesod/Auth/OAuth2/GitHub.hs
View File

@ -14,9 +14,9 @@ module Yesod.Auth.OAuth2.GitHub
, oauth2GitHubScopedWidget , oauth2GitHubScopedWidget
) where ) where
import qualified Data.Text as T
import Yesod.Auth.OAuth2.Prelude import Yesod.Auth.OAuth2.Prelude
import Yesod.Core (WidgetFor, whamlet) import Yesod.Core (WidgetFor, whamlet)
import qualified Data.Text as T
newtype User = User Int newtype User = User Int
@ -32,7 +32,8 @@ defaultScopes = ["user:email"]
oauth2GitHub :: YesodAuth m => Text -> Text -> AuthPlugin m oauth2GitHub :: YesodAuth m => Text -> Text -> AuthPlugin m
oauth2GitHub = oauth2GitHubScoped defaultScopes oauth2GitHub = oauth2GitHubScoped defaultScopes
oauth2GitHubWidget :: YesodAuth m => WidgetFor m () -> Text -> Text -> AuthPlugin m oauth2GitHubWidget
:: YesodAuth m => WidgetFor m () -> Text -> Text -> AuthPlugin m
oauth2GitHubWidget widget = oauth2GitHubScopedWidget widget defaultScopes oauth2GitHubWidget widget = oauth2GitHubScopedWidget widget defaultScopes
oauth2GitHubScoped :: YesodAuth m => [Text] -> Text -> Text -> AuthPlugin m oauth2GitHubScoped :: YesodAuth m => [Text] -> Text -> Text -> AuthPlugin m
@ -40,7 +41,7 @@ oauth2GitHubScoped =
oauth2GitHubScopedWidget [whamlet|Login via #{pluginName}|] oauth2GitHubScopedWidget [whamlet|Login via #{pluginName}|]
oauth2GitHubScopedWidget oauth2GitHubScopedWidget
:: YesodAuth m => WidgetFor m () ->[Text] -> Text -> Text -> AuthPlugin m :: YesodAuth m => WidgetFor m () -> [Text] -> Text -> Text -> AuthPlugin m
oauth2GitHubScopedWidget widget scopes clientId clientSecret = oauth2GitHubScopedWidget widget scopes clientId clientSecret =
authOAuth2Widget widget pluginName oauth2 $ \manager token -> do authOAuth2Widget widget pluginName oauth2 $ \manager token -> do
(User userId, userResponse) <- (User userId, userResponse) <-