git.iko.soy/warden
on master help sign in
Show loader on login
commit890ca92fe15955d647ca6f9d06b9394d76727b52 authoriko <ilyakooo0@gmail.com> dateTue 9 Aug 2022, 10:30 (4 years ago) parente0625f7
2 files changed+6−2
compare with master
unifiedsplit
backend/Main.purs+5−1 frontend/Main.elm+1−1
backend/Main.purs+5−1
@@ -118,7 +118,11 @@ main = do
118118 ( runBaseAff' $ run $ runReaderAt (Proxy :: _ "api") unauthedApi
119119 $ Logic.getLogInRequestToken prelogin (Email email) (Password password) captchaToken
120120 )
121− (const $ liftEffect $ Exc.throw "Could not log in. Please check your data and try again.")
121+ ( const
122+ $ liftEffect do
123+ Elm.send app Bridge.NeedsLogin
124+ Exc.throw "Could not log in. Please check your data and try again."
125+ )
122126 case toEither1 loginResponse of
123127 Left { siteKey } -> send $ Bridge.NeedsCaptcha siteKey
124128 Right token -> do
frontend/Main.elm+1−1
@@ -291,7 +291,7 @@ update msg model =
291291 )
292292
293293 SubmitLogin data ->
294− ( model
294+ ( appendPageStack <| LoadingPage
295295 , FFI.sendBridge (Bridge.Login data)
296296 )
297297