summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Annex.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex.hs b/Annex.hs
index 25038228d..842d930c5 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -255,9 +255,9 @@ withCurrentState a = do
- Fix up the Repo to be a non-bare repo, and arrange for git commands
- run by git-annex to be passed parameters that override this setting. -}
fixupDirect :: Git.Repo -> Git.Repo
-fixupDirect r@(Repo { location = Local { gitdir = d, worktree = Nothing } }) =
+fixupDirect r@(Repo { location = l@(Local { gitdir = d, worktree = Nothing }) }) =
r
- { location = Local { gitdir = d </> ".git", worktree = Just d }
+ { location = l { worktree = Just (parentDir d) }
, gitGlobalOpts = gitGlobalOpts r ++
[ Param "-c"
, Param $ coreBare ++ "=" ++ boolConfig False