From 9716f77d14ef43f96a1534d97bb9d336df1882be Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 13 Jun 2016 18:21:19 +0200
Subject: Use simple-form for search and set style

---
 src/client/elm/LoggedIn/Home/View.elm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/client/elm/LoggedIn/Home/View.elm')

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
-- 
cgit v1.2.3