From fd6611f9554e43f2bc365f7ef70f90877c9403d0 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 31 Oct 2010 18:04:34 -0400
Subject: Fix crash on unknown symlinks.

---
 git-annex.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'git-annex.hs')

diff --git a/git-annex.hs b/git-annex.hs
index e9e0d6f02..d798d417b 100644
--- a/git-annex.hs
+++ b/git-annex.hs
@@ -6,7 +6,6 @@
  -}
 
 import IO (try)
-import System.IO
 import System.Environment
 import Monad
 
@@ -41,13 +40,9 @@ tryRun' state errnum (a:as) = do
 	result <- try $ Annex.run state a
 	case (result) of
 		Left err -> do
-			showErr err
+			_ <- Annex.run state $ showErr err
 			tryRun' state (errnum + 1) as
 		Right (True,state') -> tryRun' state' errnum as
 		Right (False,state') -> tryRun' state' (errnum + 1) as
 tryRun' _ errnum [] =
 	when (errnum > 0) $ error $ (show errnum) ++ " failed"
-
-{- Exception pretty-printing. -}
-showErr :: (Show a) => a -> IO ()
-showErr e = hPutStrLn stderr $ "git-annex: " ++ (show e)
-- 
cgit v1.2.3