diff options
Diffstat (limited to 'front')
| -rw-r--r-- | front/src/Main.elm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/front/src/Main.elm b/front/src/Main.elm index 4d39cb3..4c8fc94 100644 --- a/front/src/Main.elm +++ b/front/src/Main.elm @@ -35,6 +35,11 @@ capitalDecoder = (field "interest" float) +capitalSumStr : Capital -> String +capitalSumStr { principal, interest } = + Round.round 2 (principal + interest) + + capitalStr : Capital -> String capitalStr { principal, interest } = String.concat [ "{principal=", Round.round 2 principal, ", interest=", Round.round 2 interest, "}" ] @@ -270,7 +275,7 @@ specsView { principal, i1, years } = quotaView : Quota -> Html Msg quotaView { period, payed, pending_principal } = - div [] [ text (String.join "\t" [ String.fromInt period, capitalStr payed, Round.round 2 pending_principal ]) ] + div [] [ text (String.join "\t" [ String.fromInt period, capitalSumStr payed, capitalStr payed, Round.round 2 pending_principal ]) ] historyView : List Quota -> Html Msg |