From 64ff4707fdcd81c27c6be9903c3c82bc543ef016 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 27 Mar 2017 10:18:40 +0200
Subject: Modelize punctual and monthly payment pages

---
 src/client/LoggedIn/Home/View.elm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

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

diff --git a/src/client/LoggedIn/Home/View.elm b/src/client/LoggedIn/Home/View.elm
index 0b90e67..fba3f7c 100644
--- a/src/client/LoggedIn/Home/View.elm
+++ b/src/client/LoggedIn/Home/View.elm
@@ -16,7 +16,8 @@ import LoggedIn.Home.Msg as HomeMsg
 import LoggedIn.Home.View.Paging as Paging
 import LoggedIn.Home.View.Table as Table
 import LoggedIn.Msg as LoggedInMsg
-import Model.Payment as Payment exposing (Frequency(..))
+import Model.Payment as Payment
+import Model.Frequency exposing (Frequency(..))
 import Msg exposing (Msg)
 
 view : LoggedData -> Home.Model -> Html Msg
@@ -26,12 +27,16 @@ view loggedData home =
           Just data -> (Maybe.withDefault "" data.name, data.frequency)
           Nothing -> ("", Punctual)
       payments = Payment.search name frequency loggedData.payments
+      page =
+        case frequency of
+          Punctual -> home.punctualPage
+          Monthly -> home.monthlyPage
   in  div
         [ class "home" ]
         [ Header.view loggedData home payments frequency
-        , Table.view loggedData home payments frequency
+        , Table.view loggedData home payments frequency page
         , Paging.view
-            home.currentPage
+            page
             (List.length payments)
             Msg.NoOp
             (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage)
-- 
cgit v1.2.3