diff options
author | Joris | 2018-10-30 18:04:58 +0100 |
---|---|---|
committer | Joris | 2018-10-30 18:04:58 +0100 |
commit | 50fb8fa48d1c4881da20b4ecf6d68a772301e713 (patch) | |
tree | 99c30c644d40664a9a7bb4a27e838d7cccda7a5f /client/src/View/SignIn.hs | |
parent | 40b4994797a797b1fa86cafda789a5c488730c6d (diff) | |
download | budget-50fb8fa48d1c4881da20b4ecf6d68a772301e713.tar.gz budget-50fb8fa48d1c4881da20b4ecf6d68a772301e713.tar.bz2 budget-50fb8fa48d1c4881da20b4ecf6d68a772301e713.zip |
Update table when adding or removing a payment
Diffstat (limited to 'client/src/View/SignIn.hs')
-rw-r--r-- | client/src/View/SignIn.hs | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/client/src/View/SignIn.hs b/client/src/View/SignIn.hs index 24e5be0..7f53299 100644 --- a/client/src/View/SignIn.hs +++ b/client/src/View/SignIn.hs @@ -28,13 +28,9 @@ view signInMessage = R.divClass "signIn" $ Component.form $ do rec - input <- Component.input $ InputIn - { _inputIn_reset = R.ffilter Either.isRight signInResult - , _inputIn_hasResetButton = True - , _inputIn_label = Msg.get Msg.SignIn_EmailLabel - , _inputIn_initialValue = "" - , _inputIn_inputType = "text" - } + input <- (Component.input + (Component.defaultInputIn { _inputIn_label = Msg.get Msg.SignIn_EmailLabel }) + (R.ffilter Either.isRight signInResult)) button <- Component.button $ (Component.defaultButtonIn (R.text $ Msg.get Msg.SignIn_Button)) |