diff options
| author | Joris | 2019-10-20 12:02:21 +0200 |
|---|---|---|
| committer | Joris | 2019-10-20 12:02:21 +0200 |
| commit | 7aadcc97f9df0e2daccbe8a8726d8bc6c63d67f4 (patch) | |
| tree | 3637cc06f6378fc3ea04844f15fe43bc04155007 /client/src/View/Payment/Header.hs | |
| parent | 6e9e34e92a244ab6c38d135d46f9f5bb01391906 (diff) | |
| download | budget-7aadcc97f9df0e2daccbe8a8726d8bc6c63d67f4.tar.gz budget-7aadcc97f9df0e2daccbe8a8726d8bc6c63d67f4.tar.bz2 budget-7aadcc97f9df0e2daccbe8a8726d8bc6c63d67f4.zip | |
Add income
Diffstat (limited to 'client/src/View/Payment/Header.hs')
| -rw-r--r-- | client/src/View/Payment/Header.hs | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/client/src/View/Payment/Header.hs b/client/src/View/Payment/Header.hs index 6ed3b0e..9db4c7c 100644 --- a/client/src/View/Payment/Header.hs +++ b/client/src/View/Payment/Header.hs @@ -111,16 +111,14 @@ payerAndAdd incomes payments users categories paymentCategories currency frequen R.dynText . R.ffor exceedingPayer $ \ep -> Format.price currency $ _exceedingPayer_amount ep - addPaymentClic <- _buttonOut_clic <$> (Component.button $ ButtonIn - { _buttonIn_class = R.constDyn "addPayment" - , _buttonIn_content = R.text $ Msg.get Msg.Payment_Add - , _buttonIn_waiting = R.never - , _buttonIn_tabIndex = Nothing - , _buttonIn_submit = False - }) + addPayment <- _buttonOut_clic <$> + (Component.button $ + (Component.defaultButtonIn (R.text $ Msg.get Msg.Payment_Add)) + { _buttonIn_class = R.constDyn "addPayment" + }) Modal.view $ Modal.Input - { Modal._input_show = addPaymentClic + { Modal._input_show = addPayment , Modal._input_content = Add.view $ Add.Input { Add._input_categories = categories , Add._input_paymentCategories = paymentCategories |