diff options
| author | Joris | 2018-01-03 17:31:20 +0100 |
|---|---|---|
| committer | Joris | 2018-01-03 17:31:22 +0100 |
| commit | a4acc2e84158fa822f88a1d0bdddb470708b5809 (patch) | |
| tree | 3faeb0128a51b437501470bd38be62e6e871e9f3 /client/src/View/SignIn.hs | |
| parent | 49426740e8e0c59040f4f3721a658f225572582b (diff) | |
| download | budget-a4acc2e84158fa822f88a1d0bdddb470708b5809.tar.gz budget-a4acc2e84158fa822f88a1d0bdddb470708b5809.tar.bz2 budget-a4acc2e84158fa822f88a1d0bdddb470708b5809.zip | |
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
Diffstat (limited to 'client/src/View/SignIn.hs')
| -rw-r--r-- | client/src/View/SignIn.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 -> |