Copy/paste form together

This commit is contained in:
Eike Kettner
2020-04-19 23:46:46 +02:00
parent ad772c0c25
commit 9b30542974
8 changed files with 275 additions and 36 deletions

View File

@ -61,7 +61,7 @@ init key url flags =
, loginModel = Page.Login.Data.emptyModel
, manageDataModel = Page.ManageData.Data.emptyModel
, collSettingsModel = Page.CollectiveSettings.Data.emptyModel
, userSettingsModel = Page.UserSettings.Data.emptyModel
, userSettingsModel = Page.UserSettings.Data.emptyModel flags
, queueModel = Page.Queue.Data.emptyModel
, registerModel = Page.Register.Data.emptyModel
, uploadModel = Page.Upload.Data.emptyModel

View File

@ -323,7 +323,11 @@ initPage model page =
model
UserSettingPage ->
updateQueue Page.Queue.Data.StopRefresh model
Util.Update.andThen1
[ updateQueue Page.Queue.Data.StopRefresh
, updateUserSettings Page.UserSettings.Data.Init
]
model
QueuePage ->
updateQueue Page.Queue.Data.Init model