summaryrefslogtreecommitdiff
path: root/git-annex.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-31 18:04:34 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-31 18:04:34 -0400
commitfd6611f9554e43f2bc365f7ef70f90877c9403d0 (patch)
treeb4b91e6448ea839a419e8a94e9f8dc1c013c99c7 /git-annex.hs
parentb220e117f2e06133919ad31e9cc225470f501566 (diff)
Fix crash on unknown symlinks.
Diffstat (limited to 'git-annex.hs')
-rw-r--r--git-annex.hs7
1 files changed, 1 insertions, 6 deletions
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)