Add encoding and decoding of login datas a function.

2018-12-17 15:34:21 -08:00
parent 471f5b301b
commit 128430b38f
2 changed files with 21 additions and 2 deletions
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -125,7 +125,7 @@ updateLoginResponse model a r = case r of
    Ok lr -> ( { model | token = Just lr.accessToken, loginUsername = lr.userId, apiUrl = a }, Cmd.batch
        [ firstSync model.apiUrl lr.accessToken
        , Nav.pushUrl model.key <| Url.Builder.absolute [] []
-        , setStoreValuePort ("scylla.loginInfo", Json.Encode.string (lr.accessToken ++ "\n" ++ model.apiUrl))
+        , setStoreValuePort ("scylla.loginInfo", encodeLoginInfo (lr.accessToken, model.apiUrl, lr.userId))
        ] )
    Err e  -> (model, Cmd.none)