diff options
| author | Richard Hartmann <richih@debian.org> | 2015-12-15 23:26:04 -0700 |
|---|---|---|
| committer | Richard Hartmann <richih@debian.org> | 2015-12-15 23:26:04 -0700 |
| commit | d348ed3d2822a8cd4b777f74641baf040e7839e4 (patch) | |
| tree | 5d46d93d0b237a213f72e1e7ada60a5fecaf2e75 /Git/Command.hs | |
| parent | ad444893f97ed69c4a5f070cb00a6e6cb89bb2cd (diff) | |
| parent | 3b6310081cde4333494fb1271a7570fc8e5f333a (diff) | |
| download | git-repair-d348ed3d2822a8cd4b777f74641baf040e7839e4.tar.gz | |
Record git-repair (1.20151215-1) in archive suite sid
Diffstat (limited to 'Git/Command.hs')
| -rw-r--r-- | Git/Command.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Git/Command.hs b/Git/Command.hs index c61cc9f..02e3e5a 100644 --- a/Git/Command.hs +++ b/Git/Command.hs @@ -1,6 +1,6 @@ {- running git commands - - - Copyright 2010-2013 Joey Hess <joey@kitenet.net> + - Copyright 2010-2013 Joey Hess <id@joeyh.name> - - Licensed under the GNU GPL version 3 or higher. -} @@ -16,7 +16,7 @@ import qualified Utility.CoProcess as CoProcess {- Constructs a git command line operating on the specified repo. -} gitCommandLine :: [CommandParam] -> Repo -> [CommandParam] -gitCommandLine params r@(Repo { location = l@(Local _ _ ) }) = +gitCommandLine params r@(Repo { location = l@(Local { } ) }) = setdir : settree ++ gitGlobalOpts r ++ params where setdir = Param $ "--git-dir=" ++ gitdir l |