update pair request alert when button is pressed

This commit is contained in:
Joey Hess 2012-09-09 01:02:44 -04:00
parent f62cc48482
commit 1e41c0d85e
7 changed files with 54 additions and 18 deletions

View file

@ -53,9 +53,13 @@ data Alert = Alert
, alertButton :: Maybe AlertButton
}
{- When clicked, a button always redirects to a URL
- It may also run an IO action in the background, which is useful
- to make the button close or otherwise change the alert. -}
data AlertButton = AlertButton
{ buttonUrl :: Text
, buttonLabel :: Text
{ buttonLabel :: Text
, buttonUrl :: Text
, buttonAction :: Maybe (AlertId -> IO ())
}
type AlertPair = (AlertId, Alert)