diff options
author | Joey Hess <joey@kitenet.net> | 2012-07-29 13:22:08 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-07-29 13:22:08 -0400 |
commit | 09e77a0cf0ca6e6c76ead584f16818dcf04a94b6 (patch) | |
tree | 7750b4b7e48cfe8c3c121e43edb9a3318ea104dd /Assistant/Threads/Watcher.hs | |
parent | 2dc5697a0ac36fdfe21da79a721db3f086bce041 (diff) |
add some alerts
Diffstat (limited to 'Assistant/Threads/Watcher.hs')
-rw-r--r-- | Assistant/Threads/Watcher.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Assistant/Threads/Watcher.hs b/Assistant/Threads/Watcher.hs index 5086f95a2..ade26be19 100644 --- a/Assistant/Threads/Watcher.hs +++ b/Assistant/Threads/Watcher.hs @@ -74,9 +74,7 @@ watchThread st dstatus transferqueue changechan = do {- Initial scartup scan. The action should return once the scan is complete. -} startupScan :: ThreadState -> DaemonStatusHandle -> IO a -> IO a startupScan st dstatus scanner = do - runThreadState st $ - showAction "scanning" - let alert = activityAlert Nothing "Performing startup scan" + runThreadState st $ showAction "scanning" r <- alertWhile dstatus alert scanner modifyDaemonStatus_ dstatus $ \s -> s { scanComplete = True } @@ -86,6 +84,9 @@ startupScan st dstatus scanner = do showAction "started" return r + + where + alert = activityAlert Nothing "Performing startup scan" ignored :: FilePath -> Bool ignored = ig . takeFileName |