From 182526ff68b1ca68952b4dbd32121e46d4a80e85 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 17 Jul 2012 14:40:05 -0400
Subject: add debugging

---
 Git/Branch.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'Git/Branch.hs')

diff --git a/Git/Branch.hs b/Git/Branch.hs
index 6edc1c306..6f3d25186 100644
--- a/Git/Branch.hs
+++ b/Git/Branch.hs
@@ -73,12 +73,12 @@ commit :: String -> Branch -> [Ref] -> Repo -> IO Sha
 commit message branch parentrefs repo = do
 	tree <- getSha "write-tree" $
 		pipeRead [Param "write-tree"] repo
-	sha <- getSha "commit-tree" $
-		ignorehandle $ pipeWriteRead
-			(map Param $ ["commit-tree", show tree] ++ ps)
-			message repo
+	sha <- getSha "commit-tree" $ pipeWriteRead
+		(map Param $ ["commit-tree", show tree] ++ ps)
+		message repo
+	print ("got", sha)
 	run "update-ref" [Param $ show branch, Param $ show sha] repo
+	print ("update-ref done", sha)
 	return sha
 	where
-		ignorehandle a = snd <$> a
 		ps = concatMap (\r -> ["-p", show r]) parentrefs
-- 
cgit v1.2.3