Fix update with current ui settings

This commit is contained in:
Eike Kettner 2021-05-29 00:41:46 +02:00
parent de19b1d216
commit e137b23674

View File

@ -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 )