diff options
| author | Joris | 2019-10-12 11:23:10 +0200 |
|---|---|---|
| committer | Joris | 2019-10-12 11:23:10 +0200 |
| commit | 52331eeadce8d250564851c25fc965172640bc55 (patch) | |
| tree | e634c6d232d9a28384499fe19caeb80288d05df9 /client/src/View/Payment | |
| parent | 7529a18ff0ac443e7f9764b5e2d0f57a5d3a850b (diff) | |
Implement client routing
Diffstat (limited to 'client/src/View/Payment')
| -rw-r--r-- | client/src/View/Payment/Delete.hs | 2 | ||||
| -rw-r--r-- | client/src/View/Payment/Form.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/client/src/View/Payment/Delete.hs b/client/src/View/Payment/Delete.hs index e7e319e..521c1a7 100644 --- a/client/src/View/Payment/Delete.hs +++ b/client/src/View/Payment/Delete.hs @@ -44,7 +44,7 @@ view input _ = let url = R.ffor (_input_payment input) (\id -> - T.concat ["/payment/", T.pack . show $ _payment_id id] + T.concat ["/api/payment/", T.pack . show $ _payment_id id] ) (result, waiting) <- WaitFor.waitFor diff --git a/client/src/View/Payment/Form.hs b/client/src/View/Payment/Form.hs index 187b64b..7819836 100644 --- a/client/src/View/Payment/Form.hs +++ b/client/src/View/Payment/Form.hs @@ -143,7 +143,7 @@ view input = do }) (addPayment, waiting) <- WaitFor.waitFor - (ajax "/payment") + (ajax "/api/payment") (ValidationUtil.fireValidation payment confirm) return (R.fmapMaybe EitherUtil.eitherToMaybe addPayment, cancel, confirm) |