deleteIn not expected behaviour

[wadouk]

deleteIn sometimes add data

let a = deleteIn ["foo", "bar", "0", "baz"] <| ObjectValue [("foo", ObjectValue [("bar", ArrayValue [])])]
in Expect.equal a (Ok <| ObjectValue [("foo", ObjectValue [("bar", ArrayValue [])])])


Ok (ObjectValue [("foo",ObjectValue [("bar",ArrayValue [])])])
╷
│ Expect.equal
╵
Ok (ObjectValue [("foo",ObjectValue [("bar",ArrayValue [ObjectValue [("foo",ObjectValue [("bar",ArrayValue [])])]])])])