From 5c110716cfda6e616a795edd12f2012b132dca9f Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 2 Apr 2017 17:51:12 +0200
Subject: Add a chart on payments by month by categories

---
 src/client/View/Form.elm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'src/client/View/Form.elm')

diff --git a/src/client/View/Form.elm b/src/client/View/Form.elm
index 7a4965d..977ca0a 100644
--- a/src/client/View/Form.elm
+++ b/src/client/View/Form.elm
@@ -9,6 +9,7 @@ module View.Form exposing
 import Html exposing (..)
 import Html.Attributes exposing (..)
 import Html.Events exposing (..)
+import Maybe.Extra as Maybe
 
 import FontAwesome
 import View.Color as Color
@@ -24,8 +25,6 @@ import LoggedData exposing (LoggedData)
 
 import Model.Translations as Translations exposing (Translations)
 
-import Utils.Maybe exposing (isJust)
-
 textInput : Translations -> Form String a -> String -> String -> Html Form.Msg
 textInput translations form formName fieldName =
   let field = Form.getFieldAsString fieldName form
@@ -33,13 +32,13 @@ textInput translations form formName fieldName =
   in  div
         [ classList
             [ ("textInput", True)
-            , ("error", isJust field.liveError)
+            , ("error", Maybe.isJust field.liveError)
             ]
         ]
         [ Input.textInput
             field
             [ id fieldId
-            , classList [ ("filled", isJust field.value) ]
+            , classList [ ("filled", Maybe.isJust field.value) ]
             , value (Maybe.withDefault "" field.value)
             ]
         , label
@@ -60,7 +59,7 @@ colorInput translations form formName fieldName =
   in  div
         [ classList
             [ ("colorInput", True)
-            , ("error", isJust field.liveError)
+            , ("error", Maybe.isJust field.liveError)
             ]
         ]
         [ label
@@ -79,7 +78,7 @@ radioInputs translations form formName radioName fieldNames =
   in  div
         [ classList
             [ ("radioGroup", True)
-            , ("error", isJust field.liveError)
+            , ("error", Maybe.isJust field.liveError)
             ]
         ]
         [ div
@@ -115,7 +114,7 @@ selectInput translations form formName selectName options =
   in  div
         [ classList
             [ ("selectInput", True)
-            , ("error", isJust field.liveError)
+            , ("error", Maybe.isJust field.liveError)
             ]
         ]
         [ label
-- 
cgit v1.2.3