Add ui-settings flag for side menus

This commit is contained in:
Eike Kettner
2020-10-27 22:35:52 +01:00
parent 83b41b027f
commit 183bcf5bec
10 changed files with 117 additions and 5 deletions

View File

@ -23,3 +23,4 @@ type Msg
| ItemDetailMsg Comp.ItemDetail.Model.Msg
| ItemResp (Result Http.Error ItemDetail)
| ScrollResult (Result Dom.Error ())
| UiSettingsUpdated

View File

@ -59,3 +59,10 @@ update key flags inav settings msg model =
ScrollResult _ ->
( model, Cmd.none, Sub.none )
UiSettingsUpdated ->
let
lmsg =
ItemDetailMsg Comp.ItemDetail.Model.UiSettingsUpdated
in
update key flags inav settings lmsg model