mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

show PATH on failure

Browse source
This commit is contained in:
Joey Hess 2014-01-07 12:59:26 -04:00
parent de023c09bb
commit 614986b19a
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/External.hs
View file

@ -352,7 +352,9 @@ startExternal externaltype = liftIO $ do
checkearlytermination Nothing = noop checkearlytermination Nothing = noop
checkearlytermination (Just exitcode) = ifM (inPath cmd) checkearlytermination (Just exitcode) = ifM (inPath cmd)
( error $ unwords [ "failed to run", cmd, "(" ++ show exitcode ++ ")" ] ( error $ unwords [ "failed to run", cmd, "(" ++ show exitcode ++ ")" ]
, error $ cmd ++ " is not installed in PATH" , do
path <- intercalate ":" <$> getSearchPath
error $ cmd ++ " is not installed in PATH (" ++ path ++ ")"
) )
stopExternal :: External -> Annex () stopExternal :: External -> Annex ()