snaplet-oauth-0.0.6: example/src/Keys.hs.default

{-# LANGUAGE OverloadedStrings #-}

module Keys where

import           Snap.Snaplet.OAuth

----------------------------------------------------------------------

keys  = [ (weibo, weiboKey)
        , (google, googleKey)
        , (github, githubKey)
        ]

----------------------------------------------------------------------

googleKey :: OAuth2
googleKey = OAuth2 { oauthClientId = ""
                   , oauthClientSecret = ""
                   , oauthCallback = Just "http://127.0.0.1:9988/googleCallback"
                   , oauthOAuthorizeEndpoint = "https://accounts.google.com/o/oauth2/auth"
                   , oauthAccessTokenEndpoint = "https://accounts.google.com/o/oauth2/token"
                   , oauthAccessToken = Nothing
                   }

weiboKey :: OAuth2
weiboKey = OAuth2 { oauthClientId = ""
                   , oauthClientSecret = ""
                   , oauthCallback = Just "http://127.0.0.1:9988/oauthCallback"
                   , oauthOAuthorizeEndpoint = "https://api.weibo.com/oauth2/authorize"
                   , oauthAccessTokenEndpoint = "https://api.weibo.com/oauth2/access_token"
                   , oauthAccessToken = Nothing
                   }
githubKey :: OAuth2
githubKey = undefined