diff options
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Update.elm')
| -rw-r--r-- | src/client/elm/LoggedIn/Home/Update.elm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/client/elm/LoggedIn/Home/Update.elm b/src/client/elm/LoggedIn/Home/Update.elm index 302509f..078036d 100644 --- a/src/client/elm/LoggedIn/Home/Update.elm +++ b/src/client/elm/LoggedIn/Home/Update.elm @@ -45,7 +45,10 @@ update loggedData action homeModel = HomeMsg.SearchMsg formMsg -> ( { homeModel | search = Form.update formMsg homeModel.search - , currentPage = 1 + , currentPage = + case formMsg of + Form.Input "searchText" _ -> 1 + _ -> homeModel.currentPage } , Cmd.none ) |