diff options
Diffstat (limited to 'HTTP/Client.hs')
| -rw-r--r-- | HTTP/Client.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/HTTP/Client.hs b/HTTP/Client.hs index 9626eab..2edcadb 100644 --- a/HTTP/Client.hs +++ b/HTTP/Client.hs @@ -73,8 +73,8 @@ serverRequest' srv a = go Nothing (serverUrls srv) go lasterr [] = return $ Left $ maybe "no known address" (\err -> "server failure: " ++ show err) lasterr go _ (url:urls) = do - manager <- torableManager - res <- runClientM a (ClientEnv manager url) + mymanager <- torableManager + res <- runClientM a (ClientEnv mymanager url Nothing) case res of Left err -> go (Just err) urls Right r -> return (Right r) |