Execute search when loading page

This commit is contained in:
Eike Kettner 2020-06-17 21:57:26 +02:00
parent 4028b7979e
commit bc20e9a9bb

View File

@ -9,13 +9,18 @@ import Page exposing (Page(..))
import Page.Home.Data exposing (..)
import Throttle
import Time
import Util.Update
update : Nav.Key -> Flags -> UiSettings -> Msg -> Model -> ( Model, Cmd Msg, Sub Msg )
update key flags settings msg model =
case msg of
Init ->
update key flags settings (SearchMenuMsg Comp.SearchMenu.Init) model
Util.Update.andThen2
[ update key flags settings (SearchMenuMsg Comp.SearchMenu.Init)
, doSearch flags settings
]
model
ResetSearch ->
let