diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-21 00:34:48 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-21 00:51:42 -0400 |
| commit | b3431cb37b5b7aff11ce9a25102bf5446b59a18c (patch) | |
| tree | b447b0055ab5dc30951f6fcf443eded468781e03 /Assistant | |
| parent | 10298ba18f004ccf528ebc3ea4ec8475899fb095 (diff) | |
!! removal
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Threads/Committer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs index 6b036d09a..7c34f7a93 100644 --- a/Assistant/Threads/Committer.hs +++ b/Assistant/Threads/Committer.hs @@ -173,12 +173,12 @@ handleAdds delayadd st changechan transferqueue dstatus cs = returnWhen (null in (incomplete, otherchanges) = partition (\c -> isPendingAddChange c || isInProcessAddChange c) cs findnew [] = return [] - findnew pending = do + findnew pending@(exemplar:_) = do (!newfiles, cleanup) <- runThreadState st $ inRepo (Git.LsFiles.notInRepo False $ map changeFile pending) void cleanup -- note: timestamp info is lost here - let ts = changeTime (pending !! 0) + let ts = changeTime exemplar return $ map (PendingAddChange ts) newfiles returnWhen c a |