diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-11-24 14:04:03 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-24 14:04:03 -0400 |
| commit | a88d20e8ea401b86c8a3394c12ad18b1406d1a75 (patch) | |
| tree | 42ed6e66c3ed4b47ffe883d633d97436f1e2ba61 /Assistant/Alert.hs | |
| parent | 71819fdbfbf3a35081b5891a552e8da38e5b2769 (diff) | |
cleanup on failed upgrade
Diffstat (limited to 'Assistant/Alert.hs')
| -rw-r--r-- | Assistant/Alert.hs | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index dc321f097..c767d429d 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -82,8 +82,8 @@ warningAlert name msg = Alert , alertButtons = [] } -errorAlert :: String -> AlertButton -> Alert -errorAlert msg button = Alert +errorAlert :: String -> [AlertButton] -> Alert +errorAlert msg buttons = Alert { alertClass = Error , alertHeader = Nothing , alertMessageRender = renderData @@ -95,7 +95,7 @@ errorAlert msg button = Alert , alertIcon = Just ErrorIcon , alertCombiner = Nothing , alertName = Nothing - , alertButtons = [button] + , alertButtons = buttons } activityAlert :: Maybe TenseText -> [TenseChunk] -> Alert @@ -256,7 +256,11 @@ upgradeFinishedAlert button version = baseUpgradeAlert (maybe [] (:[]) button) $ fromString $ "Finished upgrading git-annex to version " ++ version -brokenRepositoryAlert :: AlertButton -> Alert +upgradeFailedAlert :: String -> Alert +upgradeFailedAlert msg = (errorAlert msg []) + { alertHeader = Just $ fromString "Upgrade failed." } + +brokenRepositoryAlert :: [AlertButton] -> Alert brokenRepositoryAlert = errorAlert "Serious problems have been detected with your repository. This needs your immediate attention!" repairingAlert :: String -> Alert |