update pair request alert when button is pressed
This commit is contained in:
parent
f62cc48482
commit
1e41c0d85e
7 changed files with 54 additions and 18 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue