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/ProblemFixer.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/ProblemFixer.hs')
| -rw-r--r-- | Assistant/Threads/ProblemFixer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/ProblemFixer.hs b/Assistant/Threads/ProblemFixer.hs index f9774e0f0..8095581a6 100644 --- a/Assistant/Threads/ProblemFixer.hs +++ b/Assistant/Threads/ProblemFixer.hs @@ -54,7 +54,7 @@ handleRemoteProblem urlrenderer rmt ifM (liftIO $ checkAvailable True rmt) ( do fixedlocks <- repairStaleGitLocks r - fsckresults <- showFscking urlrenderer (Just $ Remote.name rmt) $ tryNonAsync $ + fsckresults <- showFscking urlrenderer (Just rmt) $ tryNonAsync $ Git.Fsck.findBroken True r repaired <- repairWhenNecessary urlrenderer (Remote.uuid rmt) (Just rmt) fsckresults return $ fixedlocks || repaired @@ -66,5 +66,5 @@ handleRemoteProblem urlrenderer rmt {- This is not yet used, and should probably do a fsck. -} handleLocalRepoProblem :: UrlRenderer -> Assistant Bool -handleLocalRepoProblem urlrenderer = do +handleLocalRepoProblem _urlrenderer = do repairStaleGitLocks =<< liftAnnex gitRepo |