From 80f09e8b3a5c856e60922a73c9161a8c5392e4d4 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 22 Oct 2019 21:35:03 +0200
Subject: Create ModalForm component

---
 client/src/View/Income/Add.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'client/src/View/Income/Add.hs')

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)
-- 
cgit v1.2.3