diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-08-15 17:47:21 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-08-15 17:47:21 -0400 |
| commit | 486748cfec17ae28582c2f3902fef3d7007489f5 (patch) | |
| tree | 7b7440a85b1669401bfb3f0524f241b047f23fb2 /Annex/Url.hs | |
| parent | ca03dfb45b6a542bc0c5e917d2d33a0baab754c2 (diff) | |
memoize construction of the Request -> Request function to apply the UrlOptions
Diffstat (limited to 'Annex/Url.hs')
| -rw-r--r-- | Annex/Url.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Url.hs b/Annex/Url.hs index 397a7910b..736905d33 100644 --- a/Annex/Url.hs +++ b/Annex/Url.hs @@ -26,7 +26,7 @@ getUserAgent = Annex.getState $ Just . fromMaybe defaultUserAgent . Annex.useragent getUrlOptions :: Annex U.UrlOptions -getUrlOptions = U.UrlOptions +getUrlOptions = mkUrlOptions <$> getUserAgent <*> headers <*> options |