From 16b551726d9d846a51656b7b1d4736a3b1b438f4 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 11 Oct 2010 23:27:48 -0400
Subject: minor

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

(limited to 'GitRepo.hs')

diff --git a/GitRepo.hs b/GitRepo.hs
index 7ae6584dd..2f9084ff7 100644
--- a/GitRepo.hs
+++ b/GitRepo.hs
@@ -112,10 +112,11 @@ gitConfigRead repo = do
 	c <- gitPipeRead repo ["config", "--list"]
 	return repo { config = Map.fromList $ parse c }
 		where
-			parse s = map ( \l -> (key l, val l) ) $ lines s
-			keyval l = split sep l :: [String]
+			parse s = map pair $ lines s
+			pair l = (key l, val l)
 			key l = (keyval l) !! 0
 			val l = join sep $ drop 1 $ keyval l
+			keyval l = split sep l :: [String]
 			sep = "="
 
 {- Returns a single git config setting, or a default value if not set. -}
-- 
cgit v1.2.3