From 1e47a7754ca38bd1a6c74765d8378caf68ce4619 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Mar 2017 21:10:42 +0200
Subject: Separate client and server watch

---
 src/client/LoggedIn/Home/Model.elm | 40 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 src/client/LoggedIn/Home/Model.elm

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

diff --git a/src/client/LoggedIn/Home/Model.elm b/src/client/LoggedIn/Home/Model.elm
new file mode 100644
index 0000000..ace1593
--- /dev/null
+++ b/src/client/LoggedIn/Home/Model.elm
@@ -0,0 +1,40 @@
+module LoggedIn.Home.Model exposing
+  ( Model
+  , Search
+  , init
+  , searchInitial
+  , validation
+  )
+
+import Form exposing (Form)
+import Form.Validate as Validate exposing (Validation)
+import Form.Field as Field exposing (Field)
+
+import Model.User exposing (Users, UserId)
+import Model.Payment as Payment exposing (PaymentId, Payments, Frequency(..))
+import Model.Payer exposing (Payers)
+
+type alias Model =
+  { currentPage : Int
+  , search : Form String Search
+  }
+
+type alias Search =
+  { name : Maybe String
+  , frequency : Frequency
+  }
+
+init : Model
+init =
+  { currentPage = 1
+  , search = Form.initial (searchInitial Punctual) validation
+  }
+
+searchInitial : Frequency -> List (String, Field)
+searchInitial frequency = [ ("frequency", Field.string (toString frequency)) ]
+
+validation : Validation String Search
+validation =
+  Validate.map2 Search
+    (Validate.field "name" (Validate.maybe Validate.string))
+    (Validate.field "frequency" Payment.validateFrequency)
-- 
cgit v1.2.3