diff options
author | Joris | 2019-10-22 22:26:38 +0200 |
---|---|---|
committer | Joris | 2019-10-22 22:26:38 +0200 |
commit | 613ffccac4b3ab25c6d4c631fab757da0b35acf6 (patch) | |
tree | 13e448af89f4079bb62d7ce8b5a44b6a64515129 /client/src/View/SignIn.hs | |
parent | 80f09e8b3a5c856e60922a73c9161a8c5392e4d4 (diff) | |
download | budget-613ffccac4b3ab25c6d4c631fab757da0b35acf6.tar.gz budget-613ffccac4b3ab25c6d4c631fab757da0b35acf6.tar.bz2 budget-613ffccac4b3ab25c6d4c631fab757da0b35acf6.zip |
Harmonize view component code style
Diffstat (limited to 'client/src/View/SignIn.hs')
-rw-r--r-- | client/src/View/SignIn.hs | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/client/src/View/SignIn.hs b/client/src/View/SignIn.hs index 4fe495b..a589fc3 100644 --- a/client/src/View/SignIn.hs +++ b/client/src/View/SignIn.hs @@ -15,9 +15,9 @@ import Common.Model (SignInForm (SignInForm)) import qualified Common.Msg as Msg import qualified Common.Validation.SignIn as SignInValidation -import Component (ButtonIn (..), ButtonOut (..), - InputIn (..), InputOut (..)) -import qualified Component as Component +import qualified Component.Button as Button +import qualified Component.Form as Form +import qualified Component.Input as Input import qualified Util.Ajax as Ajax import qualified Util.Validation as ValidationUtil import qualified Util.WaitFor as WaitFor @@ -30,24 +30,24 @@ data SignInMessage = view :: forall t m. MonadWidget t m => SignInMessage -> m () view signInMessage = R.divClass "signIn" $ - Component.form $ do + Form.view $ do rec - input <- (Component.input - (Component.defaultInputIn - { _inputIn_label = Msg.get Msg.SignIn_EmailLabel - , _inputIn_validation = SignInValidation.email + input <- (Input.view + (Input.defaultIn + { Input._in_label = Msg.get Msg.SignIn_EmailLabel + , Input._in_validation = SignInValidation.email }) ("" <$ R.ffilter Either.isRight signInResult) validate) - validate <- _buttonOut_clic <$> (Component.button $ - (Component.defaultButtonIn (R.text $ Msg.get Msg.SignIn_Button)) - { _buttonIn_class = R.constDyn "validate" - , _buttonIn_waiting = waiting - , _buttonIn_submit = True + validate <- Button._out_clic <$> (Button.view $ + (Button.defaultIn (R.text $ Msg.get Msg.SignIn_Button)) + { Button._in_class = R.constDyn "validate" + , Button._in_waiting = waiting + , Button._in_submit = True }) - let form = SignInForm <$> _inputOut_raw input + let form = SignInForm <$> Input._out_raw input (signInResult, waiting) <- WaitFor.waitFor (Ajax.post "/api/askSignIn") |