summaryrefslogtreecommitdiff
path: root/Assistant/Alert.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-03-18 23:05:23 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-03-18 23:15:48 -0400
commitb5ca4df9ecf906e6640be362708face2215b5469 (patch)
tree463769f3ede4893622f1a735c50f6c18c163c846 /Assistant/Alert.hs
parent154b11d6b1900b7104809810bee2d611b2993d42 (diff)
new alert while scanning
Like the old one, but does not mention which remotes are scanned. I think this is less confusing, as it does not imply the remotes were somehow accessed (which they are not; inaccessible remotes can be scanned.)
Diffstat (limited to 'Assistant/Alert.hs')
-rw-r--r--Assistant/Alert.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs
index 206694031..25ddaf3ce 100644
--- a/Assistant/Alert.hs
+++ b/Assistant/Alert.hs
@@ -240,6 +240,13 @@ commitAlert = activityAlert Nothing
showRemotes :: [Remote] -> TenseChunk
showRemotes = UnTensed . T.intercalate ", " . map (T.pack . Remote.name)
+scanAlert :: Alert
+scanAlert = baseActivityAlert
+ { alertHeader = Just $
+ tenseWords [Tensed "Scanning" "Scanned", "for file transfers"]
+ , alertPriority = Low
+ }
+
syncAlert :: [Remote] -> Alert
syncAlert rs = baseActivityAlert
{ alertName = Just SyncAlert