From 32a27fe07fb41c4c2e56f5d179fc30b2621630e9 Mon Sep 17 00:00:00 2001 From: "Restyled.io" Date: Wed, 21 Feb 2024 23:24:50 +0000 Subject: [PATCH] Restyled by fourmolu --- src/Yesod/Auth/OAuth2/GitHub.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/Yesod/Auth/OAuth2/GitHub.hs b/src/Yesod/Auth/OAuth2/GitHub.hs index 8110cb9..92a67c4 100644 --- a/src/Yesod/Auth/OAuth2/GitHub.hs +++ b/src/Yesod/Auth/OAuth2/GitHub.hs @@ -14,9 +14,9 @@ module Yesod.Auth.OAuth2.GitHub , oauth2GitHubScopedWidget ) where +import qualified Data.Text as T import Yesod.Auth.OAuth2.Prelude import Yesod.Core (WidgetFor, whamlet) -import qualified Data.Text as T newtype User = User Int @@ -32,7 +32,8 @@ defaultScopes = ["user:email"] oauth2GitHub :: YesodAuth m => Text -> Text -> AuthPlugin m 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 oauth2GitHubScoped :: YesodAuth m => [Text] -> Text -> Text -> AuthPlugin m @@ -40,7 +41,7 @@ oauth2GitHubScoped = oauth2GitHubScopedWidget [whamlet|Login via #{pluginName}|] oauth2GitHubScopedWidget - :: YesodAuth m => WidgetFor m () ->[Text] -> Text -> Text -> AuthPlugin m + :: YesodAuth m => WidgetFor m () -> [Text] -> Text -> Text -> AuthPlugin m oauth2GitHubScopedWidget widget scopes clientId clientSecret = authOAuth2Widget widget pluginName oauth2 $ \manager token -> do (User userId, userResponse) <-