From 1e40d18a093c421db784a5038ef6414de7b48e56 Mon Sep 17 00:00:00 2001 From: Santiago Saavedra Date: Tue, 9 Jun 2015 17:04:23 +0200 Subject: [PATCH] Fix a linting warning --- Yesod/Auth/OAuth2/Google.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Yesod/Auth/OAuth2/Google.hs b/Yesod/Auth/OAuth2/Google.hs index 942e7f3..4faa610 100644 --- a/Yesod/Auth/OAuth2/Google.hs +++ b/Yesod/Auth/OAuth2/Google.hs @@ -19,7 +19,7 @@ import Control.Applicative ((<$>), (<*>)) #endif import Control.Exception.Lifted -import Control.Monad (mzero, liftM) +import Control.Monad (mzero) import Data.Aeson import Data.Monoid ((<>)) import Data.Maybe (maybeToList) @@ -47,7 +47,8 @@ oauth2GoogleScoped clientId clientSecret scopes = authOAuth2 "google" oauth fetc oauth = OAuth2 { oauthClientId = encodeUtf8 clientId , oauthClientSecret = encodeUtf8 clientSecret - , oauthOAuthorizeEndpoint = encodeUtf8 $ "https://accounts.google.com/o/oauth2/auth?scope=" <> T.intercalate "+" scopes + , oauthOAuthorizeEndpoint = encodeUtf8 $ + "https://accounts.google.com/o/oauth2/auth?scope=" <> T.intercalate "+" scopes , oauthAccessTokenEndpoint = "https://www.googleapis.com/oauth2/v3/token" , oauthCallback = Nothing }