diff options
| author | Joris | 2019-10-27 17:02:43 +0100 |
|---|---|---|
| committer | Joris | 2019-10-27 17:02:43 +0100 |
| commit | 8ef4d96644bce59bbb736af6359e644743e5610a (patch) | |
| tree | 3a689de0a2dcb4e5be3492070358a7812a351aef /client/src/View/Income/Header.hs | |
| parent | 62f990c92b51aeca44d50c154cb4a18e2da3637c (diff) | |
| download | budget-8ef4d96644bce59bbb736af6359e644743e5610a.tar.gz budget-8ef4d96644bce59bbb736af6359e644743e5610a.tar.bz2 budget-8ef4d96644bce59bbb736af6359e644743e5610a.zip | |
Refactor income form component concerning payload creation
Diffstat (limited to 'client/src/View/Income/Header.hs')
| -rw-r--r-- | client/src/View/Income/Header.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/client/src/View/Income/Header.hs b/client/src/View/Income/Header.hs index 182db33..8e82525 100644 --- a/client/src/View/Income/Header.hs +++ b/client/src/View/Income/Header.hs @@ -11,8 +11,7 @@ import qualified Data.Time.Clock as Clock import Reflex.Dom (Dynamic, Event, MonadWidget) import qualified Reflex.Dom as R -import Common.Model (CreateIncomeForm (..), Currency, - Income (..), User (..)) +import Common.Model (Currency, Income (..), User (..)) import qualified Common.Model as CM import qualified Common.Msg as Msg import qualified Common.View.Format as Format @@ -73,7 +72,7 @@ view input = addIncome <- Modal.view $ Modal.In { Modal._in_show = addIncome - , Modal._in_content = Form.view $ Form.In { Form._in_operation = Form.New CreateIncomeForm } + , Modal._in_content = Form.view $ Form.In { Form._in_operation = Form.New } } return $ Out |