From 8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 3 Jun 2016 20:27:16 +0200
Subject: Migrate to elm 0.17

---
 src/client/elm/LoggedIn/Stat/View.elm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

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

diff --git a/src/client/elm/LoggedIn/Stat/View.elm b/src/client/elm/LoggedIn/Stat/View.elm
index 573d5bc..77a32a0 100644
--- a/src/client/elm/LoggedIn/Stat/View.elm
+++ b/src/client/elm/LoggedIn/Stat/View.elm
@@ -1,6 +1,6 @@
-module LoggedIn.Stat.View
+module LoggedIn.Stat.View exposing
   ( view
-  ) where
+  )
 
 import Date exposing (Month)
 import Dict
@@ -11,6 +11,8 @@ import Html.Attributes exposing (..)
 
 import LoggedData exposing (LoggedData)
 
+import Msg exposing (Msg)
+
 import Model.Payment as Payment exposing (Payments)
 import Model.Conf exposing (Conf)
 import Model.Translations exposing (getMessage)
@@ -23,7 +25,7 @@ import LoggedIn.View.Format as Format
 
 import Utils.Tuple as Tuple
 
-view : LoggedData -> Html
+view : LoggedData -> Html Msg
 view loggedData =
   div
     [ class "stat" ]
@@ -33,7 +35,7 @@ view loggedData =
     , monthsDetail loggedData
     ]
 
-paymentsDetail : LoggedData -> Payments -> Html
+paymentsDetail : LoggedData -> Payments -> Html Msg
 paymentsDetail loggedData payments =
   ul
     []
@@ -70,7 +72,7 @@ totalPayments loggedData =
            )
     )
 
-monthsDetail : LoggedData -> Html
+monthsDetail : LoggedData -> Html Msg
 monthsDetail loggedData =
   ul
     []
@@ -79,7 +81,7 @@ monthsDetail loggedData =
         |> List.map (monthDetail loggedData)
     )
 
-monthDetail : LoggedData -> ((Month, Int), Payments) -> Html
+monthDetail : LoggedData -> ((Month, Int), Payments) -> Html Msg
 monthDetail loggedData ((month, year), payments) =
   li
     []
-- 
cgit v1.2.3