{-# LANGUAGE OverloadedStrings #-} module Keys where import Network.OAuth.OAuth2 weiboKey :: OAuth2 weiboKey = OAuth2 { oauthClientId = "xxxxxxxxxxxxxxx" , oauthClientSecret = "xxxxxxxxxxxxxxxxxxxxxx" , oauthCallback = Just "http://127.0.0.1:9988/oauthCallback" , oauthOAuthorizeEndpoint = "" , oauthAccessTokenEndpoint = "" , oauthAccessToken = Nothing } githubKeys :: OAuth2 githubKeys = OAuth2 { oauthClientId = "xxxxxxxxxxxxxxx" , oauthClientSecret = "xxxxxxxxxxxxxxxxxxxxxx" , oauthCallback = Just "http://127.0.0.1:9988/oauthCallback" , oauthOAuthorizeEndpoint = "http://developer.github.com/v3/oauth/" , oauthAccessTokenEndpoint = "http://developer.github.com/v3/oauth/" , oauthAccessToken = Nothing } googleKey :: OAuth2 googleKey = OAuth2 { oauthClientId = "xxxxxxxxxxxxxxx.apps.googleusercontent.com"                 , oauthClientSecret = "xxxxxxxxxxxxxxxxxxxxxx"                 , oauthCallback = Just "https://developers.google.com/oauthplayground"                 , oauthOAuthorizeEndpoint = "https://accounts.google.com/o/oauth2/auth"                 , oauthAccessTokenEndpoint = "https://accounts.google.com/o/oauth2/token"                 , oauthAccessToken = Nothing} facebookKey :: OAuth2 facebookKey = OAuth2 { oauthClientId = "xxxxxxxxxxxxxxx"                 , oauthClientSecret = "xxxxxxxxxxxxxxxxxxxxxx"                  , oauthCallback = Just "https://developers.facebook.com/tools/debug"                  , oauthOAuthorizeEndpoint = "https://www.facebook.com/dialog/oauth"                  , oauthAccessTokenEndpoint = "https://graph.facebook.com/oauth/access_token"                  , oauthAccessToken = Nothing}