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) <-