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/User.elm | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

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

diff --git a/src/client/elm/Model/User.elm b/src/client/elm/Model/User.elm
index 02f2cea..f6e8147 100644
--- a/src/client/elm/Model/User.elm
+++ b/src/client/elm/Model/User.elm
@@ -8,7 +8,7 @@ module Model.User exposing
   , getUserName
   )
 
-import Json.Decode as Json exposing ((:=))
+import Json.Decode as Decode exposing (Decoder)
 import Dict exposing (Dict)
 
 type alias Users = Dict UserId User
@@ -20,23 +20,23 @@ type alias User =
   , email : String
   }
 
-usersDecoder : Json.Decoder Users
-usersDecoder = Json.map Dict.fromList (Json.list userWithIdDecoder)
+usersDecoder : Decoder Users
+usersDecoder = Decode.map Dict.fromList (Decode.list userWithIdDecoder)
 
-userWithIdDecoder : Json.Decoder (UserId, User)
+userWithIdDecoder : Decode.Decoder (UserId, User)
 userWithIdDecoder =
-  Json.object2 (,)
-    ("id" := userIdDecoder)
+  Decode.map2 (,)
+    (Decode.field "id" userIdDecoder)
     userDecoder
 
-userIdDecoder : Json.Decoder UserId
-userIdDecoder = Json.int
+userIdDecoder : Decoder UserId
+userIdDecoder = Decode.int
 
-userDecoder : Json.Decoder User
+userDecoder : Decoder User
 userDecoder =
-  Json.object2 User
-    ("name" := Json.string)
-    ("email" := Json.string)
+  Decode.map2 User
+    (Decode.field "name" Decode.string)
+    (Decode.field "email" Decode.string)
 
 getUserName : Users -> UserId -> Maybe String
 getUserName users userId =
-- 
cgit v1.2.3