diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2020-02-17 08:37:05 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-02-17 08:37:05 -0700 |
| commit | 0fc5c49d067747c97f6e774001df67b27a304983 (patch) | |
| tree | 6e59b61894adf77a2fbaf8a257690a672dec6a90 /HTTP/Client.hs | |
| parent | f9f821b71530dbcab61b96b589e6e87e8952e198 (diff) | |
| parent | de59756b62fdb8045217e3474f2528bcb48508ed (diff) | |
| download | keysafe-0fc5c49d067747c97f6e774001df67b27a304983.tar.gz | |
Merge tag '0.20200214'
tagging package keysafe version 0.20200214
# gpg: Signature made Fri 14 Feb 2020 10:39:08 AM MST
# gpg: using RSA key 28A500C35207EAB72F6C0F25DB12DB0FF05F8F38
# gpg: Good signature from "Joey Hess <joeyh@joeyh.name>" [full]
# Primary key fingerprint: E85A 5F63 B31D 24C1 EBF0 D81C C910 D922 2512 E3C7
# Subkey fingerprint: 28A5 00C3 5207 EAB7 2F6C 0F25 DB12 DB0F F05F 8F38
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) |