From 614986b19aafe83f258117469961540b5cf6de0d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 7 Jan 2014 12:59:26 -0400 Subject: [PATCH] show PATH on failure --- Remote/External.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Remote/External.hs b/Remote/External.hs index a0c3ef2d6e..a91ea86977 100644 --- a/Remote/External.hs +++ b/Remote/External.hs @@ -352,7 +352,9 @@ startExternal externaltype = liftIO $ do checkearlytermination Nothing = noop checkearlytermination (Just exitcode) = ifM (inPath cmd) ( 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 ()