From cc58377a48d13ef85cedb5ec0e19eb8b879dd497 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 28 Mar 2016 18:04:25 +0200
Subject: Compute payment count client side

---
 src/client/elm/LoggedIn/Home/Model.elm       | 6 ++----
 src/client/elm/LoggedIn/Home/Update.elm      | 2 --
 src/client/elm/LoggedIn/Home/View/Paging.elm | 2 +-
 3 files changed, 3 insertions(+), 7 deletions(-)

(limited to 'src/client/elm/LoggedIn')

diff --git a/src/client/elm/LoggedIn/Home/Model.elm b/src/client/elm/LoggedIn/Home/Model.elm
index 14ab86c..f8d24f5 100644
--- a/src/client/elm/LoggedIn/Home/Model.elm
+++ b/src/client/elm/LoggedIn/Home/Model.elm
@@ -14,12 +14,11 @@ import LoggedIn.Home.AddPayment.Model as AddPaymentModel
 import LoggedIn.Home.Monthly.Model as MonthlyModel
 
 type alias Model =
-  { users : Users
-  , add : AddPaymentModel.Model
+  { add : AddPaymentModel.Model
   , monthly : MonthlyModel.Model
   , account : AccountModel.Model
+  , users : Users
   , payments : Payments
-  , paymentsCount : Int
   , paymentEdition : Maybe PaymentId
   , currentPage : Int
   }
@@ -31,7 +30,6 @@ init initData =
   , monthly = MonthlyModel.init initData.monthlyPayments
   , account = AccountModel.init initData.me initData.incomes
   , payments = initData.payments
-  , paymentsCount = initData.paymentsCount
   , paymentEdition = Nothing
   , currentPage = 1
   }
diff --git a/src/client/elm/LoggedIn/Home/Update.elm b/src/client/elm/LoggedIn/Home/Update.elm
index 352c76b..ee0a7c3 100644
--- a/src/client/elm/LoggedIn/Home/Update.elm
+++ b/src/client/elm/LoggedIn/Home/Update.elm
@@ -80,7 +80,6 @@ update model action loggedInModel =
                 , add = newAdd
                 , account = loggedInModel.account
                 , payments = newPayment :: loggedInModel.payments
-                , paymentsCount = loggedInModel.paymentsCount + 1
                 }
               , Effects.none
               )
@@ -117,7 +116,6 @@ update model action loggedInModel =
           ( { loggedInModel
             | account = loggedInModel.account
             , payments = deletePayment payment.id loggedInModel.payments
-            , paymentsCount = loggedInModel.paymentsCount - 1
             }
           , Effects.none
           )
diff --git a/src/client/elm/LoggedIn/Home/View/Paging.elm b/src/client/elm/LoggedIn/Home/View/Paging.elm
index 31aa032..9942aa8 100644
--- a/src/client/elm/LoggedIn/Home/View/Paging.elm
+++ b/src/client/elm/LoggedIn/Home/View/Paging.elm
@@ -23,7 +23,7 @@ showedPages = 5
 
 paymentsPaging : Address Action -> HomeModel.Model -> Html
 paymentsPaging address homeModel =
-  let maxPage = ceiling (toFloat homeModel.paymentsCount / toFloat perPage)
+  let maxPage = ceiling (toFloat (List.length homeModel.payments) / toFloat perPage)
       pages = truncatePages homeModel.currentPage [1..maxPage]
   in  if maxPage == 1
         then
-- 
cgit v1.2.3