summaryrefslogtreecommitdiff
path: root/GitRepo.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-11 18:31:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-11 18:31:41 -0400
commit8f99409518d343ded6a1355b4366bd21ee4cf66d (patch)
tree7833262ce8a3ce484486836e1ecba277f3bf21fb /GitRepo.hs
parentf516b820caa702ee76c85b005fef285b8372c4da (diff)
simpler exception handling
Diffstat (limited to 'GitRepo.hs')
-rw-r--r--GitRepo.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/GitRepo.hs b/GitRepo.hs
index d01ba642b..de54f6dca 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