Skip to content

Instantly share code, notes, and snippets.

@bsrkaditya

bsrkaditya/gist:5750492

Created June 10, 2013 17:09
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save bsrkaditya/5750492 to your computer and use it in GitHub Desktop.
Save bsrkaditya/5750492 to your computer and use it in GitHub Desktop.
Download ZIP
test use of http-streams with google oauth
Raw
gistfile1.txt
import qualified Data.ByteString.Char8 as BS
import Network.Http.Client
import OpenSSL (withOpenSSL)
main = withOpenSSL $ do
ctx <- baselineContextSSL
c <- openConnectionSSL ctx (BS.pack "accounts.google.com") 443
closeConnection c
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment