diff options
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Account/View.elm')
| -rw-r--r-- | src/client/elm/LoggedIn/Home/Account/View.elm | 10 |
1 files changed, 6 insertions, 4 deletions
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" ] |