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 ()