diff options
author | 2013-07-10 15:37:40 -0400 | |
---|---|---|
committer | 2013-07-10 15:37:40 -0400 | |
commit | 28b6340fd8868f5608bd3565328b2769829c1078 (patch) | |
tree | 5806aad983efe629f739bf038ec84b6c0d44239e /Assistant/Threads/Committer.hs | |
parent | e46876e2f00524390867e5182c8ecee3965cf833 (diff) |
webapp: Better display of added files.
Diffstat (limited to 'Assistant/Threads/Committer.hs')
-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. |