From 40b4994797a797b1fa86cafda789a5c488730c6d Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 28 Oct 2018 17:57:58 +0100
Subject: Delete payment

---
 client/src/View/SignIn.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'client/src/View/SignIn.hs')

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