add some alerts

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