From 902acfbdbcc1d59941399753e887479e586e2748 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Mar 2017 23:16:28 +0200
Subject: Improve form validation

- Trim names
- Income amount accepted from 0
- Validate colors
---
 src/client/Dialog/AddCategory/Model.elm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'src/client/Dialog/AddCategory/Model.elm')

diff --git a/src/client/Dialog/AddCategory/Model.elm b/src/client/Dialog/AddCategory/Model.elm
index 7496c2b..3b70482 100644
--- a/src/client/Dialog/AddCategory/Model.elm
+++ b/src/client/Dialog/AddCategory/Model.elm
@@ -8,14 +8,16 @@ module Dialog.AddCategory.Model exposing
   )
 
 import Date exposing (Date)
-import View.Date as Date
+import Dict
 
 import Form exposing (Form)
 import Form.Field as Field exposing (Field)
 import Form.Validate as Validate exposing (Validation)
 
+import Model.Category exposing (Categories, Category, CategoryId)
 import Model.Translations exposing (Translations)
-import Model.Category exposing (Category, CategoryId)
+import Validation
+import View.Date as Date
 
 type alias Model =
   { id : Maybe CategoryId
@@ -49,4 +51,4 @@ validation =
   Validate.map3 Model
     (Validate.field "id" (Validate.maybe Validate.int))
     (Validate.field "name" (Validate.string |> Validate.andThen Validate.nonEmpty))
-    (Validate.field "color" (Validate.string |> Validate.andThen Validate.nonEmpty))
+    (Validate.field "color" Validation.color)
-- 
cgit v1.2.3