From 77e8a51acdab15b5705cd555f0e01096e1fdb26f Mon Sep 17 00:00:00 2001 From: Eike Kettner Date: Sat, 6 Jun 2020 15:15:53 +0200 Subject: [PATCH] Fix updating item list when there are no results --- .../webapp/src/main/elm/Page/Home/Update.elm | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/modules/webapp/src/main/elm/Page/Home/Update.elm b/modules/webapp/src/main/elm/Page/Home/Update.elm index 92a5d600..effd80cf 100644 --- a/modules/webapp/src/main/elm/Page/Home/Update.elm +++ b/modules/webapp/src/main/elm/Page/Home/Update.elm @@ -56,7 +56,9 @@ update key flags msg model = Nothing -> Cmd.none in - ( { model | itemListModel = m2 }, Cmd.batch [ Cmd.map ItemCardListMsg c2, cmd ] ) + ( { model | itemListModel = m2 } + , Cmd.batch [ Cmd.map ItemCardListMsg c2, cmd ] + ) ItemSearchResp (Ok list) -> let @@ -72,10 +74,7 @@ update key flags msg model = , moreAvailable = list.groups /= [] } in - if list.groups == [] then - ( m, Cmd.none ) - - else if model.searchOffset == 0 then + if model.searchOffset == 0 then update key flags (ItemCardListMsg (Comp.ItemCardList.SetResults list)) m else @@ -112,9 +111,13 @@ doSearch : Flags -> Model -> ( Model, Cmd Msg ) doSearch flags model = let cmd = - doSearchCmd flags model.searchOffset model.searchMenuModel + doSearchCmd flags 0 model.searchMenuModel in - ( { model | searchInProgress = True, viewMode = Listing } + ( { model + | searchInProgress = True + , viewMode = Listing + , searchOffset = 0 + } , cmd )