TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-11-03 18:00:11 +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
parent 1fdbf8b469 fc5f7c7dca
commit e69e05fd19
1 changed files with 10 additions and 2 deletions
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