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/HashObject.hs | |
| parent | 1d5582091e9df550a8b42d0a69bada1d15a1825e (diff) | |
add debugging
Diffstat (limited to 'Git/HashObject.hs')
| -rw-r--r-- | Git/HashObject.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/Git/HashObject.hs b/Git/HashObject.hs index 9f37de5ba..c90c9ec3d 100644 --- a/Git/HashObject.hs +++ b/Git/HashObject.hs @@ -38,11 +38,9 @@ hashFile h file = CoProcess.query h send receive {- Injects some content into git, returning its Sha. -} hashObject :: ObjectType -> String -> Repo -> IO Sha hashObject objtype content repo = getSha subcmd $ do - (h, s) <- pipeWriteRead (map Param params) content repo - length s `seq` do - forceSuccess h - reap -- XXX unsure why this is needed - return s + s <- pipeWriteRead (map Param params) content repo + reap -- XXX unsure why this is needed, of if it is anymore + return s where subcmd = "hash-object" params = [subcmd, "-t", show objtype, "-w", "--stdin"] |