diff options
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Alert.hs | 4 | ||||
| -rw-r--r-- | Assistant/Threads/Cronner.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index 4e6dab033..7e47e8396 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -82,7 +82,7 @@ warningAlert name msg = Alert errorAlert :: String -> AlertButton -> Alert errorAlert msg button = Alert { alertClass = Error - , alertHeader = Just $ tenseWords ["error"] + , alertHeader = Nothing , alertMessageRender = renderData , alertData = [UnTensed $ T.pack msg] , alertCounter = 0 @@ -175,7 +175,7 @@ fsckAlert button n = baseActivityAlert } brokenRepositoryAlert :: AlertButton -> Alert -brokenRepositoryAlert = errorAlert "Your repository needs repairs." +brokenRepositoryAlert = errorAlert "Serious problems have been detected with your repository. This needs your immediate attention!" pairingAlert :: AlertButton -> Alert pairingAlert button = baseActivityAlert diff --git a/Assistant/Threads/Cronner.hs b/Assistant/Threads/Cronner.hs index 786044b20..d0d277d77 100644 --- a/Assistant/Threads/Cronner.hs +++ b/Assistant/Threads/Cronner.hs @@ -192,7 +192,7 @@ runActivity' urlrenderer (ScheduledSelfFsck _ d) = do when (Git.Fsck.foundBroken fsckresults) $ do u <- liftAnnex getUUID liftAnnex $ writeFsckResults u fsckresults - button <- mkAlertButton True (T.pack "Repair") urlrenderer $ + button <- mkAlertButton True (T.pack "Click Here") urlrenderer $ RepairRepositoryR u void $ addAlert $ brokenRepositoryAlert button mapM_ reget =<< liftAnnex (dirKeys gitAnnexBadDir) |