mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

cleanup on failed upgrade

Browse source
This commit is contained in:
Joey Hess 2013-11-24 14:04:03 -04:00
parent 542ae4a855
commit 5ff5d0a854
3 changed files with 20 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Assistant/Alert.hs
View file

@ -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