diff --git a/raven-haskell.cabal b/raven-haskell.cabal
--- a/raven-haskell.cabal
+++ b/raven-haskell.cabal
@@ -1,5 +1,5 @@
 name:                raven-haskell
-version:             0.1.0.1
+version:             0.1.1.0
 synopsis:            Haskell client for Sentry logging service.
 -- description:         
 homepage:            https://bitbucket.org/dpwiz/raven-haskell
@@ -26,9 +26,11 @@
     base ==4.*,
     aeson,
     bytestring >= 0.10,
-    http-conduit,
+    http-conduit >= 0.4.30,
+    mtl,
     network,
     random >= 1.0,
+    resourcet,
     text,
     time >= 1.5.0.1,
     unordered-containers,
diff --git a/src/System/Log/Raven/Transport/HttpConduit.hs b/src/System/Log/Raven/Transport/HttpConduit.hs
--- a/src/System/Log/Raven/Transport/HttpConduit.hs
+++ b/src/System/Log/Raven/Transport/HttpConduit.hs
@@ -3,9 +3,11 @@
 {-# LANGUAGE OverloadedStrings #-}
 module System.Log.Raven.Transport.HttpConduit
     ( sendRecord
+    , sendRecordWith
     ) where
 
-import Network (withSocketsDo)
+import Control.Monad.Trans (MonadIO, liftIO)
+import Control.Monad.Trans.Resource (runResourceT)
 import Network.HTTP.Conduit
 import qualified Data.ByteString.Char8 as BS
 
@@ -13,7 +15,12 @@
 import System.Log.Raven.Types
 
 sendRecord :: SentrySettings -> SentryRecord -> IO ()
-sendRecord conf rec = withSocketsDo $ do
+sendRecord conf rec = do
+    manager <- newManager tlsManagerSettings
+    runResourceT $ sendRecordWith manager conf rec
+
+sendRecordWith :: MonadIO m => Manager -> SentrySettings -> SentryRecord -> m ()
+sendRecordWith manager conf rec = do
     let ep = endpointURL conf
     let auth = concat [ "Sentry sentry_version=2.0"
                       , ", sentry_client=raven-haskell-0.1.0.0"
@@ -23,10 +30,10 @@
     case ep of
         Nothing -> return ()
         Just url -> do
-            req' <- parseUrl url
+            req' <- liftIO $ parseUrlThrow url
             let req = req' { method = "POST"
                            , requestHeaders = [("X-Sentry-Auth", BS.pack auth)]
                            , requestBody = RequestBodyLBS (recordLBS rec)
                            }
-            res <- withManager $ httpLbs req
+            _ <- httpLbs req manager
             return ()