X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FTwitter%2FHttp.hs;h=4c7c6086d9cad0fc22939f4612ed2acddf1d0978;hp=14b03825a4d924663c8fd9ff4d17d56b1b9f56c0;hb=81f6cb2ec955695d8d1a4619dab69e8fa4b3fb27;hpb=f280595f9be2f48ad71504b6977454a216a7734d diff --git a/src/Twitter/Http.hs b/src/Twitter/Http.hs index 14b0382..4c7c608 100644 --- a/src/Twitter/Http.hs +++ b/src/Twitter/Http.hs @@ -81,7 +81,7 @@ http_get uri = -- Pull out the response code as a CurlCode. let code = respCurlCode resp - + case code of CurlOK -> return $ Just (respBody resp) error_code -> do