From 49d2177d51b95b4a01c05ee07e166e93751b4c51 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 10 Nov 2011 20:24:24 -0400
Subject: factored out some useful error catching methods

---
 Git.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Git.hs')

diff --git a/Git.hs b/Git.hs
index 6fb6e8361..5ceaa67f7 100644
--- a/Git.hs
+++ b/Git.hs
@@ -414,7 +414,7 @@ pipeNullSplitB params repo = filter (not . L.null) . L.split '\0' <$>
 reap :: IO ()
 reap = do
 	-- throws an exception when there are no child processes
-	r <- catch (getAnyProcessStatus False True) (\_ -> return Nothing)
+	r <- catchDefaultIO (getAnyProcessStatus False True) Nothing
 	maybe (return ()) (const reap) r
 
 {- Forces git to use the specified index file.
-- 
cgit v1.2.3