diff options
Diffstat (limited to 'src/client/elm/LoggedIn/Home/View.elm')
-rw-r--r-- | src/client/elm/LoggedIn/Home/View.elm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/client/elm/LoggedIn/Home/View.elm b/src/client/elm/LoggedIn/Home/View.elm index 213e4ab..5ed54b9 100644 --- a/src/client/elm/LoggedIn/Home/View.elm +++ b/src/client/elm/LoggedIn/Home/View.elm @@ -6,6 +6,8 @@ import Html exposing (..) import Html.Attributes exposing (..) import Date +import Form + import Msg exposing (Msg) import LoggedData exposing (LoggedData) @@ -22,7 +24,11 @@ import LoggedIn.Home.View.Paging exposing (paymentsPaging) view : LoggedData -> LoggedInModel.Model -> Html Msg view loggedData loggedIn = - let punctualPayments = Payment.sortedFiltredPunctual loggedIn.search loggedData.payments + let searchText = + Form.getFieldAsString "searchText" loggedIn.search + |> .value + |> Maybe.withDefault "" + punctualPayments = Payment.sortedFiltredPunctual searchText loggedData.payments in div [ class "home" ] [ AddPaymentView.view loggedData loggedIn |