diff options
Diffstat (limited to 'Assistant/Alert.hs')
| -rw-r--r-- | Assistant/Alert.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index 7e47e8396..9e248571d 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -177,6 +177,12 @@ fsckAlert button n = baseActivityAlert brokenRepositoryAlert :: AlertButton -> Alert brokenRepositoryAlert = errorAlert "Serious problems have been detected with your repository. This needs your immediate attention!" +repairingAlert :: String -> Alert +repairingAlert repodesc = activityAlert Nothing + [ Tensed "Attempting to repair" "Repaired" + , UnTensed $ T.pack repodesc + ] + pairingAlert :: AlertButton -> Alert pairingAlert button = baseActivityAlert { alertData = [ UnTensed "Pairing in progress" ] |