From 4318f594d544320825093de8661ed1b40e4774d5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 30 Oct 2012 17:14:26 -0400 Subject: finished pushing Assistant monad into all relevant files All temporary and old functions are removed. --- Assistant/Threads/Committer.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Assistant/Threads/Committer.hs') 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, -- cgit v1.2.3