mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove annex/ from key locations used for webdav

Browse source
This commit is contained in:
Joey Hess 2012-11-18 23:59:39 -04:00
parent 46ae4c580d
commit d3dfeeb3d9
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Locations.hs
View file

@ -9,6 +9,7 @@ module Locations (
keyFile, keyFile,
fileKey, fileKey,
keyPaths, keyPaths,
keyPath,
gitAnnexLocation, gitAnnexLocation,
annexLocations, annexLocations,
annexLocation, annexLocation,

2
Remote/WebDAV.hs
View file

@ -216,7 +216,7 @@ toDavPass = B8.fromString
{- The location to use to store a Key. -} {- The location to use to store a Key. -}
davLocation :: DavUrl -> Key -> DavUrl davLocation :: DavUrl -> Key -> DavUrl
davLocation baseurl k = davUrl baseurl $ annexLocation k hashDirLower davLocation baseurl k = davUrl baseurl $ keyPath k hashDirLower
davUrl :: DavUrl -> FilePath -> DavUrl davUrl :: DavUrl -> FilePath -> DavUrl
davUrl baseurl file = baseurl </> file davUrl baseurl file = baseurl </> file