diff options
| author | Joris | 2018-10-28 17:57:58 +0100 |
|---|---|---|
| committer | Joris | 2018-10-28 17:57:58 +0100 |
| commit | 40b4994797a797b1fa86cafda789a5c488730c6d (patch) | |
| tree | ad195b31fa442821b9de8f99364e254f0f41935f /client/src/View/Payment/Header.hs | |
| parent | df83b634006c699cfa1e921bf74ce951a906a62f (diff) | |
| download | budget-40b4994797a797b1fa86cafda789a5c488730c6d.tar.gz budget-40b4994797a797b1fa86cafda789a5c488730c6d.tar.bz2 budget-40b4994797a797b1fa86cafda789a5c488730c6d.zip | |
Delete payment
Diffstat (limited to 'client/src/View/Payment/Header.hs')
| -rw-r--r-- | client/src/View/Payment/Header.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/client/src/View/Payment/Header.hs b/client/src/View/Payment/Header.hs index fd46c25..be7f6d5 100644 --- a/client/src/View/Payment/Header.hs +++ b/client/src/View/Payment/Header.hs @@ -86,7 +86,7 @@ payerAndAdd incomes payments users categories currency = do R.text "+ " R.text . Format.price currency $ _exceedingPayer_amount p ) - addPayment <- _buttonOut_clic <$> (Component.button $ ButtonIn + addPaymentClic <- _buttonOut_clic <$> (Component.button $ ButtonIn { _buttonIn_class = R.constDyn "addPayment" , _buttonIn_content = R.text $ Msg.get Msg.Payment_Add , _buttonIn_waiting = R.never @@ -95,7 +95,7 @@ payerAndAdd incomes payments users categories currency = do }) rec modalOut <- Component.modal $ ModalIn - { _modalIn_show = addPayment + { _modalIn_show = addPaymentClic , _modalIn_hide = _addOut_cancel . _modalOut_content $ modalOut , _modalIn_content = Add.view $ AddIn { _addIn_categories = categories } } |