summaryrefslogtreecommitdiff
path: root/Remote/WebDAV/DavLocation.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Remote/WebDAV/DavLocation.hs')
-rw-r--r--Remote/WebDAV/DavLocation.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/WebDAV/DavLocation.hs b/Remote/WebDAV/DavLocation.hs
index 09f2b1b47..cbe87e6a7 100644
--- a/Remote/WebDAV/DavLocation.hs
+++ b/Remote/WebDAV/DavLocation.hs
@@ -47,7 +47,7 @@ keyLocation :: Key -> DavLocation
keyLocation k = keyDir k ++ keyFile k
exportLocation :: ExportLocation -> DavLocation
-exportLocation (ExportLocation f) = f
+exportLocation = fromExportLocation
{- Where we store temporary data for a key as it's being uploaded. -}
keyTmpLocation :: Key -> DavLocation