mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Fix crash on unknown symlinks.

Browse source
This commit is contained in:
Joey Hess 2010-10-31 18:04:34 -04:00
parent b220e117f2
commit fd6611f955
4 changed files with 37 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Core.hs
View file

@ -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