From 38896af4281d2e191cbde15836a23e4c0274fff6 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 4 Jun 2016 11:02:43 +0200
Subject: Add mean payment by month

---
 src/client/elm/LoggedIn/Home/View/Paging.elm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 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 b8d7db9..9166d23 100644
--- a/src/client/elm/LoggedIn/Home/View/Paging.elm
+++ b/src/client/elm/LoggedIn/Home/View/Paging.elm
@@ -2,7 +2,7 @@ module LoggedIn.Home.View.Paging exposing
   ( paymentsPaging
   )
 
-import Color
+import Color exposing (Color)
 
 import FontAwesome
 
@@ -60,7 +60,7 @@ firstPage homeModel =
         ]
     , onClick (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| 1)
     ]
-    [ FontAwesome.fast_backward Color.darkGrey 20 ]
+    [ FontAwesome.fast_backward grey 20 ]
 
 previousPage : HomeModel.Model -> Html Msg
 previousPage homeModel =
@@ -71,7 +71,7 @@ previousPage homeModel =
           then (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| homeModel.currentPage - 1)
           else Msg.NoOp
     ]
-    [ FontAwesome.backward Color.darkGrey 20 ]
+    [ FontAwesome.backward grey 20 ]
 
 nextPage : HomeModel.Model -> Int -> Html Msg
 nextPage homeModel maxPage =
@@ -82,7 +82,7 @@ nextPage homeModel maxPage =
           then (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| homeModel.currentPage + 1)
           else Msg.NoOp
     ]
-    [ FontAwesome.forward Color.darkGrey 20 ]
+    [ FontAwesome.forward grey 20 ]
 
 lastPage : HomeModel.Model -> Int -> Html Msg
 lastPage homeModel maxPage =
@@ -90,7 +90,7 @@ lastPage homeModel maxPage =
     [ class "page"
     , onClick (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| maxPage)
     ]
-    [ FontAwesome.fast_forward Color.darkGrey 20 ]
+    [ FontAwesome.fast_forward grey 20 ]
 
 paymentsPage : HomeModel.Model -> Int -> Html Msg
 paymentsPage homeModel page =
@@ -106,3 +106,6 @@ paymentsPage homeModel page =
               else Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| page
         ]
         [ text (toString page) ]
+
+grey : Color
+grey = Color.greyscale 0.35
-- 
cgit v1.2.3