diff options
Diffstat (limited to 'Assistant/Threads')
| -rw-r--r-- | Assistant/Threads/Committer.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs index 1064f371a..5c7332ba6 100644 --- a/Assistant/Threads/Committer.hs +++ b/Assistant/Threads/Committer.hs @@ -383,7 +383,7 @@ handleAdds delayadd cs = returnWhen (null incomplete) $ do return Nothing {- Shown an alert while performing an action to add a file or - - files. When only one file is added, its name is shown + - files. When only a few files are added, their names are shown - in the alert. When it's a batch add, the number of files added - is shown. - @@ -392,15 +392,10 @@ handleAdds delayadd cs = returnWhen (null incomplete) $ do - the add succeeded. -} addaction [] a = a - addaction toadd a = alertWhile' (addFileAlert msg) $ + addaction toadd a = alertWhile' (addFileAlert $ map changeFile toadd) $ (,) <$> pure True <*> a - where - msg = case toadd of - (InProcessAddChange { keySource = ks }:[]) -> - keyFilename ks - _ -> show (length toadd) ++ " files" {- Files can Either be Right to be added now, - or are unsafe, and must be Left for later. |