Merge branch 'features/categories' into 'master'

Features/categories

See merge request !1

1 files changed, 8 insertions, 8 deletions

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"