summaryrefslogtreecommitdiff
path: root/Remote/WebDAV.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-09-17 13:04:55 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-09-17 13:04:55 -0400
commit19863a7a58ca8d4c174773dc4fc873182932d891 (patch)
treef9faff23d0eddf2cdd7dc0b66251a2c8f7571273 /Remote/WebDAV.hs
parent8352c994ea585b103a05734c5b8c7f65412b2788 (diff)
WebDav: Fix enableremote crash when the remote already exists. (Bug introduced in version 5.20140817.)
Diffstat (limited to 'Remote/WebDAV.hs')
-rw-r--r--Remote/WebDAV.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/WebDAV.hs b/Remote/WebDAV.hs
index bb8b4cc06..d427d67a9 100644
--- a/Remote/WebDAV.hs
+++ b/Remote/WebDAV.hs
@@ -183,7 +183,7 @@ testDav url (Just (u, p)) = do
test $ liftIO $ evalDAVT url $ do
prepDAV user pass
makeParentDirs
- inLocation tmpDir $ void mkCol
+ void $ mkColRecursive tmpDir
inLocation (tmpLocation "git-annex-test") $ do
putContentM (Nothing, L.empty)
delContentM