Increase connection timeout for imports (#37)

dhall-lang · Apr 16, 2017 · 649acf3 · 649acf3
1 parent ec1bb99
commit 649acf3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Dhall/Import.hs b/src/Dhall/Import.hs
@@ -325,9 +325,9 @@ needManager = do
         Nothing -> do
             let settings = HTTP.tlsManagerSettings
 #if MIN_VERSION_http_client(0,5,0)
-                    { HTTP.managerResponseTimeout = HTTP.responseTimeoutMicro 1000000 }  -- 1 second
+                    { HTTP.managerResponseTimeout = HTTP.responseTimeoutMicro (30 * 1000 * 1000) }  -- 30 seconds
 #else
-                    { HTTP.managerResponseTimeout = Just 1000000 }  -- 1 second
+                    { HTTP.managerResponseTimeout = Just (30 * 1000 * 1000) }  -- 30 seconds
 #endif
             m <- liftIO (HTTP.newManager settings)
             zoom manager (State.put (Just m))