From fb5629d7f705b7e80dcf1852da58d2864c2b0d25 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 19 Jun 2016 01:00:53 +0200
Subject: Show payment count and sum right after search

---
 src/client/elm/LoggedIn/Home/Update.elm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/client/elm/LoggedIn/Home/Update.elm')

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
       )
-- 
cgit v1.2.3