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/Table.elm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

diff --git a/src/client/elm/LoggedIn/Home/View/Table.elm b/src/client/elm/LoggedIn/Home/View/Table.elm
index c73b428..1d69fb9 100644
--- a/src/client/elm/LoggedIn/Home/View/Table.elm
+++ b/src/client/elm/LoggedIn/Home/View/Table.elm
@@ -20,7 +20,7 @@ import LoggedIn.Home.View.Date exposing (..)
 import LoggedIn.Home.View.Price exposing (price)
 
 import Model.User exposing (getUserName)
-import Model.Payment exposing (..)
+import Model.Payment as Payment exposing (..)
 import Action
 import Mailbox
 
@@ -45,8 +45,7 @@ headerLine loggedData =
 
 paymentLines : LoggedData -> HomeModel.Model -> List Html
 paymentLines loggedData homeModel =
-  loggedData.payments
-    |> punctualPayments
+  Payment.punctual loggedData.payments
     |> List.sortBy (Date.toTime << .creation)
     |> List.reverse
     |> List.drop ((homeModel.currentPage - 1) * perPage)
-- 
cgit v1.2.3