From e8585ef26abefbc98437781f59ac2198e1d515ce Mon Sep 17 00:00:00 2001 From: Noah Loomans Date: Wed, 13 Sep 2017 22:12:15 +0200 Subject: Refactor DecodeFlags --- src/client/elm/DecodeFlags.elm | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) (limited to 'src/client/elm') diff --git a/src/client/elm/DecodeFlags.elm b/src/client/elm/DecodeFlags.elm index 5acc4f9..7709e5d 100644 --- a/src/client/elm/DecodeFlags.elm +++ b/src/client/elm/DecodeFlags.elm @@ -1,6 +1,6 @@ module DecodeFlags exposing (Flags, init) -import Json.Decode exposing (Decoder, andThen, fail, string, succeed) +import Json.Decode exposing (Decoder, andThen, decodeValue, fail, list, string, succeed) import Json.Decode.Pipeline exposing (decode, required) import Model exposing (..) @@ -11,7 +11,7 @@ type alias Flags = init : Flags -> ( Model, Cmd msg ) init flags = - case Json.Decode.decodeValue decodeUsers flags of + case decodeValue decodeUsers flags of Ok user -> ( Model user, Cmd.none ) @@ -21,17 +21,14 @@ init flags = decodeUsers : Decoder (List User) decodeUsers = - Json.Decode.list decodeUser + list + (decode User + |> required "type" decodeUserType + |> required "value" string + ) -decodeUser : Decoder User -decodeUser = - decode User - |> required "type" decodeUserType - |> required "value" string - - -decodeUserType : Json.Decode.Decoder UserType +decodeUserType : Decoder UserType decodeUserType = string |> andThen -- cgit v1.1