Deep setIn with default to object

1602 · 1602 · commit eef7a5cd0238 · 2018-09-24T11:18:23.000+01:00
diff --git a/src/Json/Value.elm b/src/Json/Value.elm
@@ -226,11 +226,12 @@ setIn pathInJson valueToSet hostValue =
 
                                     v =
                                         value
-                                            |> Result.andThen
+                                            |> Result.map
                                                 (\vv ->
                                                     hostValue
                                                         |> getIn p
                                                         |> Result.andThen (setProperty key vv)
+                                                        |> Result.withDefault (ObjectValue [ ( key, vv ) ])
                                                 )
                                 in
                                 case thisPath of
