From c542551ad043260e6a4a6569b4af5c748f7b6001 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 30 Mar 2016 14:17:59 +0200
Subject: Filter own monthly payments in view

---
 src/client/elm/LoggedIn/Home/View/Paging.elm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/client/elm/LoggedIn/Home/View/Paging.elm b/src/client/elm/LoggedIn/Home/View/Paging.elm
index 8433494..0385941 100644
--- a/src/client/elm/LoggedIn/Home/View/Paging.elm
+++ b/src/client/elm/LoggedIn/Home/View/Paging.elm
@@ -15,7 +15,7 @@ import LoggedIn.Home.Model as HomeModel
 
 import Action exposing (Action)
 import LoggedData exposing (LoggedData)
-import Model.Payment exposing (Payments, perPage, punctualPayments)
+import Model.Payment as Payment exposing (Payments, perPage)
 
 import View.Icon exposing (renderIcon)
 
@@ -24,7 +24,7 @@ showedPages = 5
 
 paymentsPaging : Address Action -> Payments -> HomeModel.Model -> Html
 paymentsPaging address payments homeModel =
-  let maxPage = ceiling (toFloat (List.length (punctualPayments payments)) / toFloat perPage)
+  let maxPage = ceiling (toFloat (List.length (Payment.punctual payments)) / toFloat perPage)
       pages = truncatePages homeModel.currentPage [1..maxPage]
   in  if maxPage == 1
         then
-- 
cgit v1.2.3