haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-09-09 11:23:54 +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

5
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