From 8f99409518d343ded6a1355b4366bd21ee4cf66d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 11 Oct 2010 18:31:41 -0400
Subject: [PATCH] simpler exception handling

---
 GitRepo.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/GitRepo.hs b/GitRepo.hs
index d01ba642b0..de54f6dca6 100644
--- a/GitRepo.hs
+++ b/GitRepo.hs
@@ -16,8 +16,8 @@ import System.Directory
 import System.Path
 import System.Cmd.Utils
 import System.IO
+import System.IO.Error
 import Data.String.Utils
-import Control.Exception
 import Utility
 
 -- a git repository
@@ -79,7 +79,7 @@ gitAdd repo file = do
 {- Queries git-config. -}
 gitConfigGet :: String -> String -> IO String
 gitConfigGet name defaultValue = 
-	handle ((\_ -> return defaultValue)::SomeException -> IO String) $
+	flip catch (\_ -> return defaultValue) $
 		pOpen ReadFromPipe "git" ["config", "--get", name] $ \h -> do
 			ret <- hGetLine h
 			return ret