Migrate to elm 0.17

1 files changed, 8 insertions, 6 deletions

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
     []