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/Home/Account/View.elm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

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

diff --git a/src/client/elm/LoggedIn/Home/Account/View.elm b/src/client/elm/LoggedIn/Home/Account/View.elm
index dc72791..fdc1941 100644
--- a/src/client/elm/LoggedIn/Home/Account/View.elm
+++ b/src/client/elm/LoggedIn/Home/Account/View.elm
@@ -1,10 +1,12 @@
-module LoggedIn.Home.Account.View
+module LoggedIn.Home.Account.View exposing
   ( view
-  ) where
+  )
 
 import Html exposing (..)
 import Html.Attributes exposing (..)
 
+import Msg exposing (Msg)
+
 import LoggedData exposing (LoggedData)
 
 import LoggedIn.Home.Model as HomeModel
@@ -14,7 +16,7 @@ import Model exposing (Model)
 import Model.User exposing (getUserName)
 import Model.Payer exposing (..)
 
-view : LoggedData -> HomeModel.Model -> Html
+view : LoggedData -> HomeModel.Model -> Html Msg
 view loggedData homeModel =
   div
     [ class "account" ]
@@ -23,7 +25,7 @@ view loggedData homeModel =
         (List.map (exceedingPayer loggedData homeModel) (getOrderedExceedingPayers loggedData.currentTime loggedData.users loggedData.incomes loggedData.payments))
     ]
 
-exceedingPayer : LoggedData -> HomeModel.Model -> ExceedingPayer -> Html
+exceedingPayer : LoggedData -> HomeModel.Model -> ExceedingPayer -> Html Msg
 exceedingPayer loggedData homeModel payer =
   div
     [ class "exceedingPayer" ]
-- 
cgit v1.2.3