Commit cd39e77

committed

Expose errors in change event detail

1 parent 8781f62 commit cd39e77Copy full SHA for cd39e77

File tree

-4

lines changed

-4

lines changed

Lines changed: 8 additions & 4 deletions

Original file line number	Diff line number	Diff line change
`@@ -31,7 +31,7 @@ import Task`
`31`	`31`
`32`	`32`	`type ExternalMsg`
`33`	`33`	`= None`
`34`		`- \| UpdateValue (Maybe JsonValue) Bool`
	`34`	`+ \| UpdateValue (Maybe JsonValue) (DictPath(ListString))`
`35`	`35`
`36`	`36`
`37`	`37`	`type alias Model =`
`@@ -405,16 +405,20 @@ editValue model path val =`
`405`	`405`	`}`
`406`	`406`	`, Cmd.none`
`407`	`407`	`)`
`408`		`- \|> withExMsg (UpdateValue (Just updatedJsonValue) True)`
	`408`	`+ \|> withExMsg (UpdateValue (Just updatedJsonValue) Dict.empty)`
`409`	`409`
`410`	`410`	`Err e ->`
	`411`	`+ let`
	`412`	`+ errors =`
	`413`	`+ dictFromListErrors e`
	`414`	`+ in`
`411`	`415`	`( { model`
`412`	`416`	`\| value = Just updatedJsonValue`
`413`		`- , errors = dictFromListErrors e`
	`417`	`+ , errors = errors`
`414`	`418`	`}`
`415`	`419`	`, Cmd.none`
`416`	`420`	`)`
`417`		`- \|> withExMsg (UpdateValue (Just updatedJsonValue) False)`
	`421`	`+ \|> withExMsg (UpdateValue (Just updatedJsonValue) errors)`
`418`	`422`
`419`	`423`
`420`	`424`	`dictFromListErrors : List Error -> Dict Path (List String)`

Comments

(0)