diff --git a/Git/Command.hs b/Git/Command.hs index a4e5c1a4a7..0fa3d1b3b6 100644 --- a/Git/Command.hs +++ b/Git/Command.hs @@ -28,7 +28,7 @@ gitCommandLine params r@(Repo { location = l@(Local _ _ ) }) = setdir = Param $ "--git-dir=" ++ gitdir l settree = case worktree l of Nothing -> [] - Just t -> [Param $ "--work-tree=" ++ gitpath t] + Just t -> [Param $ "--work-tree=" ++ t] gitCommandLine _ repo = assertLocal repo $ error "internal" {- Runs git in the specified repo. -}