Type representing json value according to spec

Get json value at given path

ObjectValue [ ( "foo", StringValue "bar" ) ]
    |> getIn [ "foo" ]
    |> Expect.equal (Ok <| StringValue "bar")

Set json value at given path

ObjectValue [ ( "foo", NullValue ) ]
    |> setIn [ "foo" ] (StringValue "bar")
    |> Expect.equal
        (Ok (ObjectValue [ ( "foo", StringValue "bar" ) ]))

Rename property in json value

StringValue "bar"
    |> inObjWithProp "foo"
    |> setPropertyName ( [], 0 ) "bam"
    |> Expect.equal (Ok <| ObjectValue <| [ ( "bam", StringValue "bar" ) ])

Delete path in json object

Decoder for JsonValue

[ ( "str", Json.Encode.string "value" )
, ( "array", Json.Encode.list
    [ Json.Encode.int 10
    , Json.Encode.float 0.1
    , Json.Encode.bool False
    , Json.Encode.null
    ] )
]
    |> object
    |> Json.Decode.decodeValue decoder
    |> Expect.equal
        (Ok <|
            ObjectValue
                [ ( "str", StringValue "value" )
                , ( "array", ArrayValue
                    [ NumericValue 10
                    , NumericValue 0.1
                    , BoolValue False
                    , NullValue
                    ] )
                ]
        )

Encoder for JsonValue

[ ( "str", StringValue "value" )
, ( "array", ArrayValue
    [ NumericValue 10
    , NumericValue 0.1
    , BoolValue False
    , NullValue
    ] )
]
    |> ObjectValue
    |> encode
    |> Expect.equal
        ([ ( "str", Json.Encode.string "value" )
         , ( "array", Json.Encode.list
            [ Json.Encode.int 10
            , Json.Encode.float 0.1
            , Json.Encode.bool False
            , Json.Encode.null
            ] )
         ]
            |> object
        )

A helper function to decode value. JsonValue decoder always succeeds, this helper aims to reduce unnecessary noise in code.