diff options
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Search')
| -rw-r--r-- | src/client/elm/LoggedIn/Home/Search/View.elm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/client/elm/LoggedIn/Home/Search/View.elm b/src/client/elm/LoggedIn/Home/Search/View.elm index f06377d..99eec95 100644 --- a/src/client/elm/LoggedIn/Home/Search/View.elm +++ b/src/client/elm/LoggedIn/Home/Search/View.elm @@ -19,6 +19,9 @@ import LoggedIn.Home.Model as HomeModel import Model.Translations exposing (getParamMessage) import Model.Conf exposing (Conf) import Model.Payment exposing (Payments) +import Model.Translations exposing (getMessage) + +import LoggedIn.Home.AddPayment.View as AddPayment import LoggedIn.View.Format as Format import View.Plural exposing (plural) @@ -29,6 +32,7 @@ view loggedData { search } payments = [ class "search" ] [ searchForm loggedData search , paymentsStat loggedData payments + , AddPayment.view loggedData ] searchForm : LoggedData -> Form String HomeModel.Search -> Html Msg @@ -40,7 +44,9 @@ paymentsStat : LoggedData -> Payments -> Html Msg paymentsStat loggedData payments = let count = plural loggedData.translations (List.length payments) "Payment" "Payments" sum = paymentsSum loggedData.conf payments - in text <| getParamMessage [ count, sum ] "Worth" loggedData.translations + in span + [ class "stat" ] + [ text <| getParamMessage [ count, sum ] "Worth" loggedData.translations ] paymentsSum : Conf -> Payments -> String paymentsSum conf payments = |