diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-07 15:40:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-07 15:40:44 -0400 |
| commit | 20f425be19dafda17c904945dfbf069c496a4ff8 (patch) | |
| tree | f280d77ec5ca6d94488fcb505c7d92f15fed3d3a /Git/HashObject.hs | |
| parent | 0a11b35d89104fa0b9653f15963d273a0d3585c3 (diff) | |
make watch use the queue
May not work. Certianly needs to flush the queue from time to time
when only symlink changes are being made.
Diffstat (limited to 'Git/HashObject.hs')
| -rw-r--r-- | Git/HashObject.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Git/HashObject.hs b/Git/HashObject.hs index b052413fd..9f37de5ba 100644 --- a/Git/HashObject.hs +++ b/Git/HashObject.hs @@ -36,8 +36,8 @@ hashFile h file = CoProcess.query h send receive receive from = getSha "hash-object" $ hGetLine from {- Injects some content into git, returning its Sha. -} -hashObject :: Repo -> ObjectType -> String -> IO Sha -hashObject repo objtype content = getSha subcmd $ do +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 |