diff options
| -rw-r--r-- | Remote/External.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Remote/External.hs b/Remote/External.hs index a0c3ef2d6..a91ea8697 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 () |