diff options
| author | Joris | 2019-10-22 21:35:03 +0200 |
|---|---|---|
| committer | Joris | 2019-10-22 21:35:03 +0200 |
| commit | 80f09e8b3a5c856e60922a73c9161a8c5392e4d4 (patch) | |
| tree | 6e2d48d3250272f9021a465eb0fa5276e84695e6 /client/src/View/Income/Add.hs | |
| parent | 33e78f2ebbf5bf7b40e7aa732cc7c019f6df3f12 (diff) | |
Create ModalForm component
Diffstat (limited to 'client/src/View/Income/Add.hs')
| -rw-r--r-- | client/src/View/Income/Add.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/client/src/View/Income/Add.hs b/client/src/View/Income/Add.hs index d83bb51..0b1bd04 100644 --- a/client/src/View/Income/Add.hs +++ b/client/src/View/Income/Add.hs @@ -11,6 +11,7 @@ import Common.Model (CreateIncomeForm (..), Income) import qualified Common.Msg as Msg import qualified Common.Util.Time as TimeUtil import qualified Component.Modal as Modal +import qualified Util.Ajax as Ajax import qualified Util.Reflex as ReflexUtil import View.Income.Form (FormIn (..), FormOut (..)) import qualified View.Income.Form as Form @@ -27,7 +28,7 @@ view cancel = do , _formIn_amount = "" , _formIn_date = currentDay , _formIn_mkPayload = CreateIncomeForm - , _formIn_httpMethod = Form.Post + , _formIn_ajax = Ajax.post } hide <- ReflexUtil.flatten (_formOut_hide <$> form) |