diff options
| author | Joris | 2019-10-23 21:09:54 +0200 |
|---|---|---|
| committer | Joris | 2019-10-23 21:11:11 +0200 |
| commit | f968c8ce63e1aec119b1e6f414cf27e2c0294bcb (patch) | |
| tree | ab539d6d1618ad724498f5ad3954f74409f65383 /client/src/View/Income/Header.hs | |
| parent | 61ff1443c42def5a09f624e3df2e2520e97610d0 (diff) | |
| download | budget-f968c8ce63e1aec119b1e6f414cf27e2c0294bcb.tar.gz budget-f968c8ce63e1aec119b1e6f414cf27e2c0294bcb.tar.bz2 budget-f968c8ce63e1aec119b1e6f414cf27e2c0294bcb.zip | |
Delete income
Diffstat (limited to 'client/src/View/Income/Header.hs')
| -rw-r--r-- | client/src/View/Income/Header.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/client/src/View/Income/Header.hs b/client/src/View/Income/Header.hs index 0360d1f..f17e774 100644 --- a/client/src/View/Income/Header.hs +++ b/client/src/View/Income/Header.hs @@ -29,7 +29,7 @@ data In t = In } data Out t = Out - { _out_addIncome :: Event t Income + { _out_add :: Event t Income } view :: forall t m. MonadWidget t m => In t -> m (Out t) @@ -72,11 +72,11 @@ view input = addIncome <- Modal.view $ Modal.In { Modal._in_show = addIncome - , Modal._in_content = Add.view $ Add.In { Add._in_income = R.constDyn Nothing } + , Modal._in_content = Add.view $ Add.In { Add._in_income = Nothing } } return $ Out - { _out_addIncome = addIncome + { _out_add = addIncome } where |