TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-02 13:32:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix updating item list when there are no results

Browse Source
This commit is contained in:
Eike Kettner 2020-06-06 15:15:53 +02:00
parent 071ab60a5c
commit 77e8a51acd
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
modules/webapp/src/main/elm/Page/Home/Update.elm
View File

@ -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
)