diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-29 16:48:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-29 16:50:38 -0400 |
| commit | fcfe4f532f4a87cccd1e61423e1f43c0e8e83c6a (patch) | |
| tree | beda9d60b0390c416538ed9da494f43c30c8720e /Assistant/Threads/Cronner.hs | |
| parent | 16d6ab71124876f7cffb79778cf8de1b23b5c1ba (diff) | |
webapp: remind user when using repositories that lack consistency checks
When starting up the assistant, it'll remind about the current
repository, if it doesn't have checks. And when a removable drive
is plugged in, it will remind if a repository on it lacks checks.
Since that might be annoying, the reminders can be turned off.
This commit was sponsored by Nedialko Andreev.
Diffstat (limited to 'Assistant/Threads/Cronner.hs')
| -rw-r--r-- | Assistant/Threads/Cronner.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Assistant/Threads/Cronner.hs b/Assistant/Threads/Cronner.hs index df5264d7f..55b3ca2f1 100644 --- a/Assistant/Threads/Cronner.hs +++ b/Assistant/Threads/Cronner.hs @@ -29,9 +29,10 @@ import Assistant.Types.UrlRenderer import Assistant.Alert import Remote import qualified Types.Remote as Remote +import qualified Git import qualified Git.Fsck +import Assistant.Fsck import Assistant.Repair -import qualified Git import Control.Concurrent.Async import Control.Concurrent.MVar @@ -55,6 +56,7 @@ import qualified Data.Set as S - ones, and kill the threads for deleted ones. -} cronnerThread :: UrlRenderer -> NamedThread cronnerThread urlrenderer = namedThreadUnchecked "Cronner" $ do + fsckNudge urlrenderer Nothing dstatus <- getDaemonStatus h <- liftIO $ newNotificationHandle False (scheduleLogNotifier dstatus) go h M.empty M.empty @@ -208,7 +210,7 @@ runActivity' urlrenderer (ScheduledRemoteFsck u s d) = handle =<< liftAnnex (rem - Annex monad. -} go rmt =<< liftAnnex (mkfscker (annexFsckParams d)) go rmt annexfscker = do - fsckresults <- showFscking urlrenderer (Just $ Remote.name rmt) $ tryNonAsync $ do + fsckresults <- showFscking urlrenderer (Just rmt) $ tryNonAsync $ do void annexfscker let r = Remote.repo rmt if Git.repoIsLocal r && not (Git.repoIsLocalUnknown r) |