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

move

Browse source 
move use of </> into DavLocation so it always uses unix filepaths due to
imports
This commit is contained in:
Joey Hess 2021-03-12 15:16:23 -04:00
parent f064008543
commit 3e41a8f032
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Remote/WebDAV/DavLocation.hs
View file

@ -62,6 +62,11 @@ exportLocation l =
keyTmpLocation :: Key -> DavLocation
keyTmpLocation = tmpLocation . fromRawFilePath . keyFile
exportTmpLocation :: ExportLocation -> Key -> DavLocation
exportTmpLocation l k = d </> keyTmpLocation k
where
d = takeDirectory (fromRawFilePath (fromExportLocation l))
tmpLocation :: FilePath -> DavLocation
tmpLocation f = "git-annex-webdav-tmp-" ++ f