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/Model/Init.elm | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

(limited to 'src/client/elm/Model/Init.elm')

diff --git a/src/client/elm/Model/Init.elm b/src/client/elm/Model/Init.elm
index 3a86dba..db7069f 100644
--- a/src/client/elm/Model/Init.elm
+++ b/src/client/elm/Model/Init.elm
@@ -3,23 +3,29 @@ module Model.Init exposing
   , initDecoder
   )
 
-import Json.Decode as Json exposing ((:=))
+import Json.Decode as Decode exposing (Decoder)
 
 import Model.Payment exposing (Payments, paymentsDecoder)
-import Model.Income exposing (Incomes, incomesDecoder)
 import Model.User exposing (Users, UserId, usersDecoder, userIdDecoder)
+import Model.Income exposing (Incomes, incomesDecoder)
+import Model.Category exposing (Categories, categoriesDecoder)
+import Model.PaymentCategory exposing (PaymentCategories, paymentCategoriesDecoder)
 
 type alias Init =
   { users : Users
   , me : UserId
   , payments : Payments
   , incomes : Incomes
+  , categories : Categories
+  , paymentCategories : PaymentCategories
   }
 
-initDecoder : Json.Decoder Init
+initDecoder : Decoder Init
 initDecoder =
-  Json.object4 Init
-    ("users" := usersDecoder)
-    ("me" := userIdDecoder)
-    ("payments" := paymentsDecoder)
-    ("incomes" := incomesDecoder)
+  Decode.map6 Init
+    (Decode.field "users" usersDecoder)
+    (Decode.field "me" userIdDecoder)
+    (Decode.field "payments" paymentsDecoder)
+    (Decode.field "incomes" incomesDecoder)
+    (Decode.field "categories" categoriesDecoder)
+    (Decode.field "paymentCategories" paymentCategoriesDecoder)
-- 
cgit v1.2.3