summaryrefslogtreecommitdiff
path: root/Config
diff options
context:
space:
mode:
Diffstat (limited to 'Config')
-rw-r--r--Config/Files.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/Config/Files.hs b/Config/Files.hs
index b503a5443..d2b2f6a51 100644
--- a/Config/Files.hs
+++ b/Config/Files.hs
@@ -62,8 +62,13 @@ readProgramFile = do
( return p
, ifM (inPath cmd)
( return cmd
- , error $ "cannot find git-annex program in PATH or in the location listed in " ++ programfile
+ , cannotFindProgram
)
)
where
cmd = "git-annex"
+
+cannotFindProgram :: IO a
+cannotFindProgram = do
+ f <- programFile
+ error $ "cannot find git-annex program in PATH or in the location listed in " ++ f