diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-02-16 16:29:04 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-02-16 16:29:04 -0400 |
commit | b053e35cfe97aee6d31e09564850c1a60331bd1e (patch) | |
tree | 11220e313ccb5f0af8507d25467e338899518698 | |
parent | 06d16b62c2d49b0aae50966a85b7e1b708cd0884 (diff) |
don't assume git-annex is in path when calling itself from test suite
-rw-r--r-- | Test.hs | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -71,6 +71,7 @@ import qualified Annex.WorkTree import qualified Annex.Link import qualified Annex.Init import qualified Annex.CatFile +import qualified Annex.Path import qualified Annex.View import qualified Annex.View.ViewedFile import qualified Logs.View @@ -1596,7 +1597,8 @@ git_annex command params = do {- Runs git-annex and returns its output. -} git_annex_output :: String -> [String] -> IO String git_annex_output command params = do - got <- Utility.Process.readProcess "git-annex" (command:params) + pp <- Annex.Path.programPath + got <- Utility.Process.readProcess pp (command:params) -- Since the above is a separate process, code coverage stats are -- not gathered for things run in it. -- Run same command again, to get code coverage. |