fix build with old http-client versions

1 files changed, 1 insertions, 8 deletions

diff --git a/Remote/S3.hs b/Remote/S3.hs
index 2d2819824..c05831b0b 100644
--- a/Remote/S3.hs
+++ b/Remote/S3.hs
@@ -23,7 +23,7 @@ import qualified Data.Map as M
 import Data.Char
 import Network.Socket (HostName)
 import Network.HTTP.Conduit (Manager, newManager)
-import Network.HTTP.Client (managerResponseTimeout, responseStatus, responseBody, RequestBody(..))
+import Network.HTTP.Client (responseStatus, responseBody, RequestBody(..))
 import Network.HTTP.Types
 import Control.Monad.Trans.Resource
 import Control.Monad.Catch
@@ -50,13 +50,6 @@ import Annex.Content
 import Annex.Url (withUrlOptions)
 import Utility.Url (checkBoth, managerSettings, closeManager)
 
-#if MIN_VERSION_http_client(0,5,0)
-import Network.HTTP.Client (responseTimeoutNone)
-#else
-responseTimeoutNone :: Maybe Int
-responseTimeoutNone = Nothing
-#endif
-
 type BucketName = String
 
 remote :: RemoteType