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

RawFilePath version of getCurrentDirectory

Browse source 
This commit was sponsored by Jochen Bartl on Patreon
This commit is contained in:
Joey Hess 2020-10-28 16:03:45 -04:00
parent 08cbaee1f8
commit 6c29817748
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
5 changed files with 26 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Git/CurrentRepo.hs
View file

@ -66,10 +66,10 @@ get = do
configure Nothing (Just r) = Git.Config.read r
configure (Just d) _ = do
absd <- absPath d
absd <- absPath (fromRawFilePath d)
curr <- getCurrentDirectory
loc <- adjustGitDirFile $ Local
{ gitdir = toRawFilePath absd
{ gitdir = absd
, worktree = Just (toRawFilePath curr)
}
r <- Git.Config.read $ newFrom loc