diff options
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Account')
-rw-r--r-- | src/client/elm/LoggedIn/Home/Account/View.elm | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/src/client/elm/LoggedIn/Home/Account/View.elm b/src/client/elm/LoggedIn/Home/Account/View.elm deleted file mode 100644 index fdc1941..0000000 --- a/src/client/elm/LoggedIn/Home/Account/View.elm +++ /dev/null @@ -1,42 +0,0 @@ -module LoggedIn.Home.Account.View exposing - ( view - ) - -import Html exposing (..) -import Html.Attributes exposing (..) - -import Msg exposing (Msg) - -import LoggedData exposing (LoggedData) - -import LoggedIn.Home.Model as HomeModel -import LoggedIn.View.Format as Format - -import Model exposing (Model) -import Model.User exposing (getUserName) -import Model.Payer exposing (..) - -view : LoggedData -> HomeModel.Model -> Html Msg -view loggedData homeModel = - div - [ class "account" ] - [ div - [ class "header" ] - (List.map (exceedingPayer loggedData homeModel) (getOrderedExceedingPayers loggedData.currentTime loggedData.users loggedData.incomes loggedData.payments)) - ] - -exceedingPayer : LoggedData -> HomeModel.Model -> ExceedingPayer -> Html Msg -exceedingPayer loggedData homeModel payer = - div - [ class "exceedingPayer" ] - [ span - [ class "userName" ] - [ payer.userId - |> getUserName loggedData.users - |> Maybe.withDefault "−" - |> text - ] - , span - [ class "amount" ] - [ text ("+ " ++ (Format.price loggedData.conf payer.amount)) ] - ] |