Skip to content

Commit

Permalink
Fix a linting warning
Browse files Browse the repository at this point in the history
  • Loading branch information
ssaavedra committed Jun 9, 2015
1 parent 192dde8 commit 1e40d18
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions Yesod/Auth/OAuth2/Google.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down Expand Up @@ -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
}
Expand Down

0 comments on commit 1e40d18

Please sign in to comment.