-- 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