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/Model.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/Model.elm')
-rw-r--r-- | src/client/elm/LoggedIn/Home/Model.elm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/src/client/elm/LoggedIn/Home/Model.elm b/src/client/elm/LoggedIn/Home/Model.elm index 0a2b305..a653995 100644 --- a/src/client/elm/LoggedIn/Home/Model.elm +++ b/src/client/elm/LoggedIn/Home/Model.elm @@ -3,6 +3,9 @@ module LoggedIn.Home.Model exposing , init ) +import Form exposing (Form) +import Form.Validate as Validate exposing (Validation) + import Model.User exposing (Users, UserId) import Model.Payment exposing (PaymentId, Payments, Frequency(..)) import Model.Payer exposing (Payers) @@ -14,7 +17,11 @@ type alias Model = , paymentEdition : Maybe PaymentId , currentPage : Int , monthlyDetail : Bool - , search : String + , search : Form String Search + } + +type alias Search = + { searchText : Maybe String } init : Model @@ -23,5 +30,10 @@ init = , paymentEdition = Nothing , currentPage = 1 , monthlyDetail = False - , search = "" + , search = Form.initial [] validate } + +validate : Validation String Search +validate = + Validate.form1 Search + (Validate.get "searchText" (Validate.maybe Validate.string)) |