This commit is contained in:
Joey Hess 2015-02-09 14:16:42 -04:00
parent 7ff96fad74
commit a22eaaae27
3 changed files with 29 additions and 1 deletions

View file

@ -506,7 +506,7 @@ fsckOnRemote r params
[ ("GIT_WORK_TREE", Git.repoPath r')
, ("GIT_DIR", Git.localGitDir r')
] environ
batchCommandEnv program (Param "fsck" : params) $ Just environ'
batchCommandEnv program (Param "fsck" : params) (Just environ')
{- The passed repair action is run in the Annex monad of the remote. -}
repairRemote :: Git.Repo -> Annex Bool -> Annex (IO Bool)