TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-03-28 17:55:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

Use previously updated ui settings

Browse Source 
Fixes: #368
This commit is contained in:
Eike Kettner 2020-10-22 00:08:03 +02:00
parent 1fdbf8b469
commit fc5f7c7dca
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
modules/webapp/src/main/elm/Comp/UiSettingsManage.elm
View File

@ -53,12 +53,20 @@ update flags settings msg model =
case msg of case msg of
UiSettingsFormMsg lm -> UiSettingsFormMsg lm ->
let let
inSettings =
Maybe.withDefault settings model.settings
( m_, sett ) = ( m_, sett ) =
Comp.UiSettingsForm.update settings lm model.formModel Comp.UiSettingsForm.update inSettings lm model.formModel
in in
( { model ( { model
| formModel = m_ | formModel = m_
, settings = sett , settings =
if sett == Nothing then
model.settings
else
sett
, message = , message =
if sett /= Nothing then if sett /= Nothing then
Nothing Nothing