diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-30 17:14:26 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-30 17:14:51 -0400 |
| commit | 4318f594d544320825093de8661ed1b40e4774d5 (patch) | |
| tree | 709dcd2fe739c503651bc7bd5e1df35a52a27977 /Assistant/Threads/Committer.hs | |
| parent | 07cd1b2b40735d460c8225762fcf3992b9886c60 (diff) | |
finished pushing Assistant monad into all relevant files
All temporary and old functions are removed.
Diffstat (limited to 'Assistant/Threads/Committer.hs')
| -rw-r--r-- | Assistant/Threads/Committer.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs index d73dc1eb0..445e44dea 100644 --- a/Assistant/Threads/Committer.hs +++ b/Assistant/Threads/Committer.hs @@ -202,9 +202,7 @@ handleAdds delayadd cs = returnWhen (null incomplete) $ do Git.HashObject.hashObject BlobObject link stageSymlink file sha showEndOk - transferqueue <- getAssistant transferQueue - dstatus <- getAssistant daemonStatusHandle - liftAnnex $ queueTransfers Next transferqueue dstatus key (Just file) Upload + queueTransfers Next key (Just file) Upload return $ Just change {- Check that the keysource's keyFilename still exists, |