haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-01-11 19:58:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Address HLint issues

Browse Source
This commit is contained in:
patrick brisbin 2018-01-23 08:10:29 -05:00
parent 30851ae5fb
commit 79ef8aded9
3 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
.hlint.yaml
View File

@ -1,3 +1,8 @@
---
- ignore:
# https://github.com/ndmitchell/hlint/issues/427
name: Eta reduce
within: authOAuth2
- ignore: - ignore:
name: Redundant do name: Redundant do
within: spec within: spec

2
src/Yesod/Auth/OAuth2/EveOnline.hs
View File

@ -96,7 +96,7 @@ oauth2EveScoped clientId clientSecret scopes widget =
fetchEveProfile :: Manager -> OAuth2Token -> IO (Creds m) fetchEveProfile :: Manager -> OAuth2Token -> IO (Creds m)
fetchEveProfile manager token = do fetchEveProfile manager token = do
userResult <- authGetJSON manager (accessToken token) $ "https://login.eveonline.com/oauth/verify" userResult <- authGetJSON manager (accessToken token) "https://login.eveonline.com/oauth/verify"
case userResult of case userResult of
Right user -> return $ toCreds user token Right user -> return $ toCreds user token

2
src/Yesod/Auth/OAuth2/Salesforce.hs
View File

@ -95,7 +95,7 @@ oauth2SalesforceSandboxScoped scopes clientId clientSecret =
fetchSalesforceSandboxUser :: Manager -> OAuth2Token -> IO (Creds m) fetchSalesforceSandboxUser :: Manager -> OAuth2Token -> IO (Creds m)
fetchSalesforceSandboxUser manager token = do fetchSalesforceSandboxUser manager token = do
result <- authGetJSON manager (accessToken token) $ "https://test.salesforce.com/services/oauth2/userinfo" result <- authGetJSON manager (accessToken token) "https://test.salesforce.com/services/oauth2/userinfo"
case result of case result of
Right user -> return $ toCreds svcNameSb user token Right user -> return $ toCreds svcNameSb user token
Left err -> throwIO $ invalidProfileResponse svcNameSb err Left err -> throwIO $ invalidProfileResponse svcNameSb err