diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-07 12:59:26 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-07 12:59:26 -0400 |
| commit | 78927f7609aceb9c4d2a6dcbacd6a9c1470a5bfe (patch) | |
| tree | 0b35d97403843444581035a2ea0b5fd36f4a926a | |
| parent | 42a280992ad87e90376fc045d354b94d23884bd1 (diff) | |
show PATH on failure
| -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 () |