include feed url in repeated problems message

This commit is contained in:
Joey Hess 2014-07-14 13:07:13 -04:00
parent e36439d4fe
commit 810bc10857

View file

@ -265,7 +265,7 @@ extractField k (_:rest) = extractField k rest
- Throws an error if the feed is broken, otherwise shows a warning. -}
feedProblem :: URLString -> String -> Annex ()
feedProblem url message = ifM (checkFeedBroken url)
( error $ message ++ " (having repeated problems with this feed!)"
( error $ message ++ " (having repeated problems with feed: " ++ url ++ ")"
, warning $ "warning: " ++ message
)