Fix crash on unknown symlinks.

1 files changed, 7 insertions, 0 deletions

diff --git a/Core.hs b/Core.hs
index ebe5d2966..e2e6eaa0c 100644
--- a/Core.hs
+++ b/Core.hs
@@ -165,3 +165,10 @@ showEndOk = verbose $ do
 showEndFail :: Annex ()
 showEndFail = verbose $ do
 	liftIO $ putStrLn "\nfailed"
+
+{- Exception pretty-printing. -}
+showErr :: (Show a) => a -> Annex ()
+showErr e = warning $ show e
+
+warning :: String -> Annex ()
+warning s = liftIO $ hPutStrLn stderr $ "git-annex: " ++ s