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

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

Browse Source 
Use previously updated ui settings
This commit is contained in:
mergify[bot] 2020-10-21 22:25:28 +00:00 committed by GitHub
commit e69e05fd19
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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