Fix initialising pages; improve scroll to item

2025-06-23 19:08:26 +00:00 · 2020-09-25 22:54:50 +02:00
parent 2773eb5341
commit ca05b3c195
2 changed files with 8 additions and 4 deletions
--- a/modules/webapp/src/main/elm/App/Update.elm
+++ b/modules/webapp/src/main/elm/App/Update.elm
@ -342,9 +342,13 @@ updateManageData lmsg model =


 initPage : Model -> Page -> ( Model, Cmd Msg, Sub Msg )
-initPage model page =
+initPage model_ page =
+    let
+        model =
+            { model_ | page = page }
+    in
    case page of
-        HomePage mid ->
+        HomePage _ ->
            Util.Update.andThen2
                [ updateHome Page.Home.Data.Init
                , updateQueue Page.Queue.Data.StopRefresh