lambdatoast / elm-json Goto Github PK

$ elm --make --only-js Main.elm 
[1 of 12] Compiling Json.Output         ( elm_dependencies/lambdatoast-elm-json/0.3.4/Json/Output.elm )
[2 of 12] Compiling Json.Process        ( elm_dependencies/lambdatoast-elm-json/0.3.4/Json/Process.elm )
[3 of 12] Compiling Json.Accessor       ( elm_dependencies/lambdatoast-elm-json/0.3.4/Json/Accessor.elm )
[4 of 12] Compiling Json.Decoder        ( elm_dependencies/lambdatoast-elm-json/0.3.4/Json/Decoder.elm )
Import Error: Could not import value 'Json.Output.Error'.
    It is not exported by module Json.Output

json_value : Decoder Json.Value
json_value v = case v of
              Json.Value x -> output x
              _ -> Error <| decoderErrorMsg "{json_value}"

type JsonRpcRequest = { method: String, id: String, params: Json.Value }

jsonRpcDecoder1 : Decoder JsonRpcRequest
jsonRpcDecoder1 = decode3 ("method" := string) ("id" := string) ("params" := json_value) JsonRpcRequest

jsonRpcDecoderCombined : Decoder JsonRpcRequest
jsonRpcDecoderCombined = jsonRpcDecoder1 {-`or` jsonRpcDecoder2-}

testdata1 = "{\"method\":\"setHost\",\"id\":\"foo\", \"params\":{123, \"Hello\"}}"

Could not find type constructor 'Json.Value' while checking types.