From cfca18262c1ff48dcb683ddab7d03cf8e55573ff Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 24 Mar 2017 09:21:04 +0000
Subject: Features/categories

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

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

diff --git a/src/client/elm/LoggedIn/Stat/View.elm b/src/client/elm/LoggedIn/Stat/View.elm
index 946005a..f57316a 100644
--- a/src/client/elm/LoggedIn/Stat/View.elm
+++ b/src/client/elm/LoggedIn/Stat/View.elm
@@ -26,7 +26,7 @@ view loggedData =
   let paymentsByMonth = Payment.groupAndSortByMonth (Payment.punctual loggedData.payments)
       monthPaymentMean = getMonthPaymentMean loggedData paymentsByMonth
   in  div
-        [ class "stat textual" ]
+        [ class "stat withMargin" ]
         [ h1 [] [ text (getParamMessage [ Format.price loggedData.conf monthPaymentMean ] loggedData.translations "ByMonthsAndMean") ]
         , ul
             []
@@ -40,7 +40,7 @@ getMonthPaymentMean loggedData paymentsByMonth =
          let currentDate = Date.fromTime loggedData.currentTime
          in  not (Date.month currentDate == month && Date.year currentDate == year)
        )
-    |> List.map (List.sum << List.map .cost << snd)
+    |> List.map (List.sum << List.map .cost << Tuple.second)
     |> List.mean
 
 monthDetail : LoggedData -> ((Month, Int), Payments) -> Html Msg
-- 
cgit v1.2.3