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/InitResult.elm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

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

diff --git a/src/client/elm/Model/InitResult.elm b/src/client/elm/Model/InitResult.elm
index c8da533..7ce0be2 100644
--- a/src/client/elm/Model/InitResult.elm
+++ b/src/client/elm/Model/InitResult.elm
@@ -3,7 +3,7 @@ module Model.InitResult exposing
   , initResultDecoder
   )
 
-import Json.Decode as Json exposing ((:=))
+import Json.Decode as Decode exposing (Decoder)
 
 import Model.Init exposing (Init, initDecoder)
 
@@ -12,17 +12,17 @@ type InitResult =
   | InitSuccess Init
   | InitError String
 
-initResultDecoder : Json.Decoder InitResult
-initResultDecoder = ("tag" := Json.string) `Json.andThen` initResultDecoderWithTag
+initResultDecoder : Decoder InitResult
+initResultDecoder = (Decode.field "tag" Decode.string) |> Decode.andThen initResultDecoderWithTag
 
-initResultDecoderWithTag : String -> Json.Decoder InitResult
+initResultDecoderWithTag : String -> Decoder InitResult
 initResultDecoderWithTag tag =
   case tag of
     "InitEmpty" ->
-      Json.succeed InitEmpty
+      Decode.succeed InitEmpty
     "InitSuccess" ->
-      Json.map InitSuccess ("contents" := initDecoder)
+      Decode.map InitSuccess (Decode.field "contents" initDecoder)
     "InitError" ->
-      Json.map InitError ("contents" := Json.string)
+      Decode.map InitError (Decode.field "contents" Decode.string)
     _ ->
-      Json.fail <| "got " ++ tag ++ " for InitResult"
+      Decode.fail <| "got " ++ tag ++ " for InitResult"
-- 
cgit v1.2.3