import qualified Data.ByteString.Lazy as B
import qualified Data.ByteString.Char8 as BC
-import qualified Data.Conduit as C
-import Data.Conduit.Binary (sinkLbs)
-import Network.HTTP.Conduit
+import Network.HTTP.Client (
+ httpLbs,
+ newManager,
+ parseUrl,
+ responseBody)
+import Network.HTTP.Client.TLS (
+ tlsManagerSettings)
import Web.Authenticate.OAuth (
OAuth(..),
Credential,
-- | Retrieve a URL, or crash.
http_get :: Cfg -> String -> IO B.ByteString
http_get cfg url = do
- manager <- newManager def
+ manager <- newManager tlsManagerSettings
request <- parseUrl url
-
- C.runResourceT $ do
- signed_request <- signOAuth oauth credential request
- response <- http signed_request manager
- responseBody response C.$$+- sinkLbs
+ signed_request <- signOAuth oauth credential request
+ response <- httpLbs signed_request manager
+ return $ responseBody response
where
consumer_key' = BC.pack (consumer_key cfg)