Merge pull request #374 from eikek/fix-ui-settings

Use previously updated ui settings
2025-03-25 16:45:05 +00:00 · 2020-10-21 22:25:28 +00:00 · 2020-10-21 22:25:28 +00:00 · e69e05fd19
commit e69e05fd19
parent 1fdbf8b469 fc5f7c7dca
1 changed files with 10 additions and 2 deletions
--- a/modules/webapp/src/main/elm/Comp/UiSettingsManage.elm
+++ b/modules/webapp/src/main/elm/Comp/UiSettingsManage.elm
@ -53,12 +53,20 @@ update flags settings msg model =
    case msg of
        UiSettingsFormMsg lm ->
            let
+                inSettings =
+                    Maybe.withDefault settings model.settings
+
                ( m_, sett ) =
-                    Comp.UiSettingsForm.update settings lm model.formModel
+                    Comp.UiSettingsForm.update inSettings lm model.formModel
            in
            ( { model
                | formModel = m_
-                , settings = sett
+                , settings =
+                    if sett == Nothing then
+                        model.settings
+
+                    else
+                        sett
                , message =
                    if sett /= Nothing then
                        Nothing