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/SignIn.hs | |
| parent | df83b634006c699cfa1e921bf74ce951a906a62f (diff) | |
| download | budget-40b4994797a797b1fa86cafda789a5c488730c6d.tar.gz budget-40b4994797a797b1fa86cafda789a5c488730c6d.tar.bz2 budget-40b4994797a797b1fa86cafda789a5c488730c6d.zip | |
Delete payment
Diffstat (limited to 'client/src/View/SignIn.hs')
| -rw-r--r-- | client/src/View/SignIn.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/client/src/View/SignIn.hs b/client/src/View/SignIn.hs index 21d0fcc..24e5be0 100644 --- a/client/src/View/SignIn.hs +++ b/client/src/View/SignIn.hs @@ -16,7 +16,7 @@ import Component (ButtonIn (..), ButtonOut (..), InputIn (..), InputOut (..)) import qualified Component as Component import qualified Util.Ajax as Ajax -import qualified Util.WaitFor as Util +import qualified Util.WaitFor as WaitFor data SignInMessage = SuccessMessage Text @@ -43,8 +43,8 @@ view signInMessage = , _buttonIn_submit = True } - (signInResult, waiting) <- Util.waitFor - (\email -> Ajax.post "/askSignIn" (SignIn <$> email)) + (signInResult, waiting) <- WaitFor.waitFor + (\email -> Ajax.postJson "/askSignIn" (SignIn <$> email)) (_buttonOut_clic button) (_inputOut_value input) |