diff options
author | 2012-07-29 18:07:45 -0400 | |
---|---|---|
committer | 2012-07-29 18:09:24 -0400 | |
commit | d52c93242450c0bd01e7d3c1fdae375806aa6e1f (patch) | |
tree | ea3ae0b9db0f7c859b8d260a70f54b41d9a4bd3c /Assistant/Threads/TransferScanner.hs | |
parent | b2dc8fdb06068276869df682b439348aa96e57f5 (diff) |
moved all alert messages into one file
Makes it easier to edit for consistent voice etc.
Diffstat (limited to 'Assistant/Threads/TransferScanner.hs')
-rw-r--r-- | Assistant/Threads/TransferScanner.hs | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/Assistant/Threads/TransferScanner.hs b/Assistant/Threads/TransferScanner.hs index 1bf8b062f..1d91a65d4 100644 --- a/Assistant/Threads/TransferScanner.hs +++ b/Assistant/Threads/TransferScanner.hs @@ -32,18 +32,9 @@ transferScannerThread st dstatus scanremotes transferqueue = do runEvery (Seconds 2) $ do r <- getScanRemote scanremotes liftIO $ debug thisThread ["starting scan of", show r] - alertWhile dstatus (scanalert r) $ + alertWhile dstatus (scanAlert r) $ scan st dstatus transferqueue r liftIO $ debug thisThread ["finished scan of", show r] - where - scanalert r = Alert - { alertClass = Activity - , alertHeader = Just $ "Scanning " ++ Remote.name r - , alertMessage = StringAlert $ unwords - [ "Ensuring that ", Remote.name r - , "is fully in sync." ] - , alertBlockDisplay = True - } {- This is a naive scan through the git work tree. - |