From a4acc2e84158fa822f88a1d0bdddb470708b5809 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 3 Jan 2018 17:31:20 +0100
Subject: Modify weelky report and payment search interface

- Add payment balance in weekly report
- Show a message and hide pages when the search results in no results
- Go to page 1 when the search is updated / erased
---
 client/src/View/SignIn.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/client/src/View/SignIn.hs b/client/src/View/SignIn.hs
index be6b152..89be737 100644
--- a/client/src/View/SignIn.hs
+++ b/client/src/View/SignIn.hs
@@ -45,7 +45,7 @@ view result =
             ]
 
       button <- Component.button $ ButtonIn
-        { _buttonIn_class = R.constDyn ""
+        { _buttonIn_class = R.constDyn "validate"
         , _buttonIn_content = R.text (Msg.get Msg.SignIn_Button)
         , _buttonIn_waiting = waiting
         }
@@ -57,7 +57,7 @@ view result =
 askSignIn :: forall t m. MonadWidget t m => Event t Text -> m (Event t (Either Text Text))
 askSignIn email =
   fmap getResult <$> R.performRequestAsync xhrRequest
-  where xhrRequest = fmap (R.postJson "/signIn" . SignIn) email
+  where xhrRequest = fmap (R.postJson "/askSignIn" . SignIn) email
         getResult response =
           case R._xhrResponse_responseText response of
             Just key ->
-- 
cgit v1.2.3