From 76f8b85eb9f796d6df861a04f702ef5f48630795 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 29 Mar 2016 23:46:47 +0200
Subject: Move logged data to LoggedIn component

---
 src/client/elm/LoggedIn/Home/View/Paging.elm | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 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 9942aa8..09a5b62 100644
--- a/src/client/elm/LoggedIn/Home/View/Paging.elm
+++ b/src/client/elm/LoggedIn/Home/View/Paging.elm
@@ -13,17 +13,18 @@ import LoggedIn.Action as LoggedInAction
 import LoggedIn.Home.Action as HomeAction
 import LoggedIn.Home.Model as HomeModel
 
-import Action exposing (..)
-import Model.Payment exposing (perPage)
+import Action exposing (Action)
+import LoggedData exposing (LoggedData)
+import Model.Payment exposing (Payments, perPage)
 
 import View.Icon exposing (renderIcon)
 
 showedPages : Int
 showedPages = 5
 
-paymentsPaging : Address Action -> HomeModel.Model -> Html
-paymentsPaging address homeModel =
-  let maxPage = ceiling (toFloat (List.length homeModel.payments) / toFloat perPage)
+paymentsPaging : Address Action -> Payments -> HomeModel.Model -> Html
+paymentsPaging address payments homeModel =
+  let maxPage = ceiling (toFloat (List.length payments) / toFloat perPage)
       pages = truncatePages homeModel.currentPage [1..maxPage]
   in  if maxPage == 1
         then
@@ -60,7 +61,7 @@ firstPage : Address Action -> Html
 firstPage address =
   button
     [ class "page"
-    , onClick address (UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| 1)
+    , onClick address (Action.UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| 1)
     ]
     [ renderIcon "fast-backward" ]
 
@@ -68,7 +69,7 @@ previousPage : Address Action -> HomeModel.Model -> Html
 previousPage address homeModel =
   button
     [ class "page"
-    , onClick address (UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| homeModel.currentPage - 1)
+    , onClick address (Action.UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| homeModel.currentPage - 1)
     ]
     [ renderIcon "backward" ]
 
@@ -76,7 +77,7 @@ nextPage : Address Action -> HomeModel.Model -> Html
 nextPage address homeModel =
   button
     [ class "page"
-    , onClick address (UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| homeModel.currentPage + 1)
+    , onClick address (Action.UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| homeModel.currentPage + 1)
     ]
     [ renderIcon "forward" ]
 
@@ -84,7 +85,7 @@ lastPage : Address Action -> Int -> Html
 lastPage address maxPage =
   button
     [ class "page"
-    , onClick address (UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| maxPage)
+    , onClick address (Action.UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| maxPage)
     ]
     [ renderIcon "fast-forward" ]
 
@@ -97,6 +98,8 @@ paymentsPage address homeModel page =
             , ("current", onCurrentPage)
             ]
         , onClick address <|
-            if onCurrentPage then Action.NoOp else UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| page
+            if onCurrentPage
+              then Action.NoOp
+              else Action.UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| page
         ]
         [ text (toString page) ]
-- 
cgit v1.2.3