diff options
author | Joris | 2016-06-13 18:21:19 +0200 |
---|---|---|
committer | Joris | 2016-06-13 18:21:19 +0200 |
commit | 9716f77d14ef43f96a1534d97bb9d336df1882be (patch) | |
tree | 34d049a264dd7e24678fa97ce0cc948e46a4debf /src/client/elm/LoggedIn/Home/View.elm | |
parent | c43d8f886d48ca3d58f1614f1eddfe374081f3db (diff) | |
download | budget-9716f77d14ef43f96a1534d97bb9d336df1882be.tar.gz budget-9716f77d14ef43f96a1534d97bb9d336df1882be.tar.bz2 budget-9716f77d14ef43f96a1534d97bb9d336df1882be.zip |
Use simple-form for search and set style
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 |