From e137b23674aaa960d038686500c2161c0501b606 Mon Sep 17 00:00:00 2001 From: Eike Kettner Date: Sat, 29 May 2021 00:41:46 +0200 Subject: [PATCH] Fix update with current ui settings --- modules/webapp/src/main/elm/App/Update.elm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/modules/webapp/src/main/elm/App/Update.elm b/modules/webapp/src/main/elm/App/Update.elm index fa92a709..c25e41b6 100644 --- a/modules/webapp/src/main/elm/App/Update.elm +++ b/modules/webapp/src/main/elm/App/Update.elm @@ -288,6 +288,9 @@ applyClientSettings model settings = let setTheme = Ports.setUiTheme settings.uiTheme + + model_ = + { model | uiSettings = settings } in Util.Update.andThen2 [ \m -> @@ -299,7 +302,7 @@ applyClientSettings model settings = , updateHome Page.Home.Data.UiSettingsUpdated , updateItemDetail Page.ItemDetail.Data.UiSettingsUpdated ] - { model | uiSettings = settings } + model_ updateItemDetail : Page.ItemDetail.Data.Msg -> Model -> ( Model, Cmd Msg, Sub Msg )