diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-03-05 13:51:54 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-05 13:51:54 -0400 |
| commit | c64785074b925f725acb5ed254d73b310179cba0 (patch) | |
| tree | 542abb3d221d0c4b861e3edcbc3ebbb54ed87134 /Remote/WebDAV.hs | |
| parent | a82b564462580b46b781df38ff1015685617675a (diff) | |
webdav: When built with a new enough haskell DAV (0.6), disable the http response timeout, which was only 5 seconds.
Diffstat (limited to 'Remote/WebDAV.hs')
| -rw-r--r-- | Remote/WebDAV.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Remote/WebDAV.hs b/Remote/WebDAV.hs index 2cfe2f6d2..91b83053c 100644 --- a/Remote/WebDAV.hs +++ b/Remote/WebDAV.hs @@ -386,6 +386,7 @@ matchStatusCodeException _ _ = Nothing #if MIN_VERSION_DAV(0,6,0) goDAV :: DavUrl -> DavUser -> DavPass -> DAVT IO a -> IO a goDAV url user pass a = choke $ evalDAVT url $ do + setResponseTimeout Nothing -- disable default (5 second!) timeout setCreds user pass a where |