diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-17 14:40:05 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-17 14:40:05 -0400 |
| commit | 182526ff68b1ca68952b4dbd32121e46d4a80e85 (patch) | |
| tree | ecd7097dca179776a5a92e0da11e7bebe01c6d37 /Git/Branch.hs | |
| parent | 1d5582091e9df550a8b42d0a69bada1d15a1825e (diff) | |
add debugging
Diffstat (limited to 'Git/Branch.hs')
| -rw-r--r-- | Git/Branch.hs | 10 |
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 |