module LoggedIn.Stat.View
  ( view
  ) where

import Html exposing (..)

import LoggedData exposing (LoggedData)

import Model.Payment exposing (Payments)
import Model.Conf exposing (Conf)

import LoggedIn.View.Price exposing (price)

view : LoggedData -> Html
view loggedData =
  div
    []
    [ h1 [] [ text "Total" ]
    , paymentDetail loggedData.conf loggedData.payments
    ]

paymentDetail : Conf -> Payments -> Html
paymentDetail conf payments =
  ul
    []
    [ li
        []
        [ payments
            |> List.length
            |> toString
            |> text
        , text " payments"
        ]
    , li
        []
        [ payments
            |> List.map .cost
            |> List.sum
            |> price conf
            |> text
        ]
    ]