From ab8e457f99ebe309d6155607026051e52f59216d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 22 Oct 2013 16:30:23 -0400
Subject: UI tweaks

---
 Assistant/Alert.hs           | 4 ++--
 Assistant/Threads/Cronner.hs | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'Assistant')

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)
-- 
cgit v1.2.3