mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Locations.hs
View file

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

2
Remote/WebDAV.hs
View file

@ -216,7 +216,7 @@ toDavPass = B8.fromString
{- The location to use to store a Key. -}
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 baseurl file = baseurl </> file