Skip to content

Instantly share code, notes, and snippets.

@jrwest

jrwest/stackmob.hs

Created January 23, 2012 07:46
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 jrwest/1661442 to your computer and use it in GitHub Desktop.
Save jrwest/1661442 to your computer and use it in GitHub Desktop.
Download ZIP
Call StackMob API from Haskell
Raw
stackmob.hs
-- requires hoauth http://hackage.haskell.org/package/hoauth
import Network.OAuth.Consumer
import Network.OAuth.Http.CurlHttpClient
import Network.OAuth.Http.Request (parseURL)
import Network.OAuth.Http.Response
import Data.Maybe (fromJust)
reqUrl = fromJust . parseURL $ "http://SUBDOMAIN.stackmob.com/api/0/APPNAME/listapi"
app = Application "public key" "private key" OOB
response :: IO Response
response = runOAuthM (fromApplication app) $ do
req <- signRq2 HMACSHA1 Nothing reqUrl
serviceRequest CurlClient req
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment