From cfca18262c1ff48dcb683ddab7d03cf8e55573ff Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 24 Mar 2017 09:21:04 +0000
Subject: Features/categories

---
 src/client/elm/LoggedIn/Income/Update.elm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/client/elm/LoggedIn/Income/Update.elm')

diff --git a/src/client/elm/LoggedIn/Income/Update.elm b/src/client/elm/LoggedIn/Income/Update.elm
index ec6a0c1..0023c76 100644
--- a/src/client/elm/LoggedIn/Income/Update.elm
+++ b/src/client/elm/LoggedIn/Income/Update.elm
@@ -6,19 +6,19 @@ import Form exposing (Form)
 
 import LoggedData exposing (LoggedData)
 
-import LoggedIn.Income.Model as IncomeModel
-import LoggedIn.Income.Msg as IncomeMsg
+import LoggedIn.Income.Model as Income
+import LoggedIn.Income.Msg as Income
 
-update : LoggedData -> IncomeMsg.Msg -> IncomeModel.Model -> (IncomeModel.Model, Cmd IncomeMsg.Msg)
+update : LoggedData -> Income.Msg -> Income.Model -> (Income.Model, Cmd Income.Msg)
 update loggedData msg model =
   case msg of
 
-    IncomeMsg.NoOp ->
+    Income.NoOp ->
       ( model
       , Cmd.none
       )
 
-    IncomeMsg.AddIncomeMsg formMsg ->
-      ( { model | addIncome = Form.update formMsg model.addIncome }
+    Income.AddIncomeMsg formMsg ->
+      ( { model | addIncome = Form.update Income.validation formMsg model.addIncome }
       , Cmd.none
       )
-- 
cgit v1.2.3