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/Payment/Add.hs | |
parent | 33e78f2ebbf5bf7b40e7aa732cc7c019f6df3f12 (diff) |
Create ModalForm component
Diffstat (limited to 'client/src/View/Payment/Add.hs')
-rw-r--r-- | client/src/View/Payment/Add.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/client/src/View/Payment/Add.hs b/client/src/View/Payment/Add.hs index 28c0148..163a200 100644 --- a/client/src/View/Payment/Add.hs +++ b/client/src/View/Payment/Add.hs @@ -17,6 +17,7 @@ import Common.Model (Category (..), CreatePaymentForm (..), 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 qualified View.Payment.Form as Form @@ -45,7 +46,7 @@ view input cancel = do , Form._input_category = -1 , Form._input_frequency = frequency , Form._input_mkPayload = CreatePaymentForm - , Form._input_httpMethod = Form.Post + , Form._input_ajax = Ajax.post } hide <- ReflexUtil.flatten (Form._output_hide <$> formOutput) |