diff options
author | Joris | 2018-10-28 17:57:58 +0100 |
---|---|---|
committer | Joris | 2018-10-28 17:57:58 +0100 |
commit | 40b4994797a797b1fa86cafda789a5c488730c6d (patch) | |
tree | ad195b31fa442821b9de8f99364e254f0f41935f /client/src/View/Payment/Add.hs | |
parent | df83b634006c699cfa1e921bf74ce951a906a62f (diff) |
Delete payment
Diffstat (limited to 'client/src/View/Payment/Add.hs')
-rw-r--r-- | client/src/View/Payment/Add.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/client/src/View/Payment/Add.hs b/client/src/View/Payment/Add.hs index 5ff09dd..8b1b56e 100644 --- a/client/src/View/Payment/Add.hs +++ b/client/src/View/Payment/Add.hs @@ -23,7 +23,7 @@ import Component (ButtonIn (..), InputIn (..), SelectOut (..)) import qualified Component as Component import qualified Util.Ajax as Ajax -import qualified Util.WaitFor as Util +import qualified Util.WaitFor as WaitFor data AddIn = AddIn { _addIn_categories :: [Category] @@ -83,8 +83,8 @@ view addIn = do , _buttonIn_submit = True }) - (_, waiting) <- Util.waitFor - (Ajax.post "/payment") + (_, waiting) <- WaitFor.waitFor + (Ajax.postJson "/payment") validate payment |