summaryrefslogtreecommitdiff
path: root/Assistant/Threads/MountWatcher.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-07-29 18:07:45 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-07-29 18:09:24 -0400
commitd52c93242450c0bd01e7d3c1fdae375806aa6e1f (patch)
treeea3ae0b9db0f7c859b8d260a70f54b41d9a4bd3c /Assistant/Threads/MountWatcher.hs
parentb2dc8fdb06068276869df682b439348aa96e57f5 (diff)
moved all alert messages into one file
Makes it easier to edit for consistent voice etc.
Diffstat (limited to 'Assistant/Threads/MountWatcher.hs')
-rw-r--r--Assistant/Threads/MountWatcher.hs11
1 files changed, 1 insertions, 10 deletions
diff --git a/Assistant/Threads/MountWatcher.hs b/Assistant/Threads/MountWatcher.hs
index 7d0ef5ae4..20862dac1 100644
--- a/Assistant/Threads/MountWatcher.hs
+++ b/Assistant/Threads/MountWatcher.hs
@@ -165,7 +165,7 @@ handleMount st dstatus scanremotes mntent = do
branch <- runThreadState st $ Command.Sync.currentBranch
let nonspecial = filter (Git.repoIsLocal . Remote.repo) rs
unless (null nonspecial) $
- alertWhile dstatus (syncalert nonspecial) $ do
+ alertWhile dstatus (syncMountAlert dir nonspecial) $ do
debug thisThread ["syncing with", show nonspecial]
runThreadState st $ manualPull branch nonspecial
now <- getCurrentTime
@@ -173,15 +173,6 @@ handleMount st dstatus scanremotes mntent = do
addScanRemotes scanremotes rs
where
dir = mnt_dir mntent
- syncalert rs = Alert
- { alertClass = Activity
- , alertHeader = Just $ "Syncing with " ++ unwords (map Remote.name rs)
- , alertMessage = StringAlert $ unwords
- ["I noticed you plugged in", dir,
- " -- let's get it in sync!"]
- , alertBlockDisplay = True
- }
-
{- Finds remotes located underneath the mount point.
-