aboutsummaryrefslogtreecommitdiff
path: root/Git/Branch.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-07-17 14:40:05 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-07-17 14:40:05 -0400
commit182526ff68b1ca68952b4dbd32121e46d4a80e85 (patch)
treeecd7097dca179776a5a92e0da11e7bebe01c6d37 /Git/Branch.hs
parent1d5582091e9df550a8b42d0a69bada1d15a1825e (diff)
add debugging
Diffstat (limited to 'Git/Branch.hs')
-rw-r--r--Git/Branch.hs10
1 files changed, 5 insertions, 5 deletions
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