TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-23 19:08:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix endless reload of login page

Browse Source
This commit is contained in:
Eike Kettner
2020-12-06 00:58:15 +01:00
parent 89a66ebe8c
commit f55566388a
2 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/webapp/src/main/elm/Page/Login/Update.elm
View File

@ -2,7 +2,6 @@ module Page.Login.Update exposing (update)
import Api
import Api.Model.AuthResult exposing (AuthResult)
import Api.Model.UserPass exposing (UserPass)
import Data.Flags exposing (Flags)
import Page exposing (Page(..))
import Page.Login.Data exposing (..)
@ -38,10 +37,16 @@ update referrer flags msg model =
Maybe.withDefault HomePage referrer |> Page.goto
in
if lr.success then
( { model | result = Just lr, password = "" }, Cmd.batch [ setAccount lr, gotoRef ], Just lr )
( { model | result = Just lr, password = "" }
, Cmd.batch [ setAccount lr, gotoRef ]
, Just lr
)
else
( { model | result = Just lr, password = "" }, Ports.removeAccount (), Just lr )
( { model | result = Just lr, password = "" }
, Ports.removeAccount ()
, Just lr
)
AuthResp (Err err) ->
let