Features/categories

1 files changed, 8 insertions, 7 deletions

diff --git a/src/client/elm/LoggedIn/Home/Model.elm b/src/client/elm/LoggedIn/Home/Model.elm
index caedc29..ace1593 100644
--- a/src/client/elm/LoggedIn/Home/Model.elm
+++ b/src/client/elm/LoggedIn/Home/Model.elm
@@ -3,6 +3,7 @@ module LoggedIn.Home.Model exposing
   , Search
   , init
   , searchInitial
+  , validation
   )
 
 import Form exposing (Form)
@@ -26,14 +27,14 @@ type alias Search =
 init : Model
 init =
   { currentPage = 1
-  , search = Form.initial (searchInitial Punctual) searchValidation
+  , search = Form.initial (searchInitial Punctual) validation
   }
 
 searchInitial : Frequency -> List (String, Field)
-searchInitial frequency = [ ("frequency", Field.Radio (toString frequency)) ]
+searchInitial frequency = [ ("frequency", Field.string (toString frequency)) ]
 
-searchValidation : Validation String Search
-searchValidation =
-  Validate.form2 Search
-    (Validate.get "name" (Validate.maybe Validate.string))
-    (Validate.get "frequency" Payment.validateFrequency)
+validation : Validation String Search
+validation =
+  Validate.map2 Search
+    (Validate.field "name" (Validate.maybe Validate.string))
+    (Validate.field "frequency" Payment.validateFrequency)