diff options
| author | Joris | 2016-06-19 01:00:53 +0200 |
|---|---|---|
| committer | Joris | 2016-06-19 01:00:53 +0200 |
| commit | fb5629d7f705b7e80dcf1852da58d2864c2b0d25 (patch) | |
| tree | e9e0d0db119b6f7c2b240226f03ff2d6218070ed /src/client/elm/LoggedIn/Stat/View.elm | |
| parent | 9716f77d14ef43f96a1534d97bb9d336df1882be (diff) | |
Show payment count and sum right after search
Diffstat (limited to 'src/client/elm/LoggedIn/Stat/View.elm')
| -rw-r--r-- | src/client/elm/LoggedIn/Stat/View.elm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/client/elm/LoggedIn/Stat/View.elm b/src/client/elm/LoggedIn/Stat/View.elm index bb1ec84..f99ef0e 100644 --- a/src/client/elm/LoggedIn/Stat/View.elm +++ b/src/client/elm/LoggedIn/Stat/View.elm @@ -19,9 +19,9 @@ import Model.Translations exposing (getMessage, getParamMessage) import LoggedIn.View.Format as Format import LoggedIn.View.Date as Date - import View.Plural exposing (plural) -import LoggedIn.View.Format as Format + +import LoggedIn.Stat.Account.View as AccountView import Utils.Tuple as Tuple import Utils.List as List @@ -30,7 +30,9 @@ view : LoggedData -> Html Msg view loggedData = div [ class "stat" ] - [ h1 [] [ text (getMessage "Overall" loggedData.translations) ] + [ h1 [] [ text (getMessage "Balance" loggedData.translations) ] + , AccountView.view loggedData + , h1 [] [ text (getMessage "Overall" loggedData.translations) ] , paymentsDetail loggedData (Payment.punctual loggedData.payments) , h1 [] [ text (getMessage "ByMonths" loggedData.translations) ] , monthsDetail loggedData @@ -42,10 +44,7 @@ paymentsDetail loggedData payments = [] [ li [] - [ let single = getMessage "Payment" loggedData.translations - multiple = getMessage "Payments" loggedData.translations - in text <| plural (List.length payments) single multiple - ] + [ text <| plural loggedData.translations (List.length payments) "Payment" "Payments" ] , li [] [ text (paymentsSum loggedData.conf payments) |