Commit 9c51b78

committed

View edited value

1 parent 6acb265 commit 9c51b78Copy full SHA for 9c51b78

File tree

+17

-1

lines changed

+17

-1

lines changed

Lines changed: 17 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -128,6 +128,8 @@ content model =`
`128`	`128`	`[ form`
`129`	`129`	`\|> Json.Form.view`
`130`	`130`	`\|> Html.map (JsonFormMsg index)`
	`131`	`+ , form.value`
	`132`	`+ \|> viewValue`
`131`	`133`	`]`
`132`	`134`	`, form.schema \|> viewSchema`
`133`	`135`	`]`
`@@ -140,12 +142,26 @@ content model =`
`140`	`142`	`]`
`141`	`143`
`142`	`144`
	`145`	`+viewValue : Maybe JsonValue -> Html msg`
	`146`	`+viewValue v =`
	`147`	`+ case v of`
	`148`	`+ Just val ->`
	`149`	`+ let`
	`150`	`+ code =`
	`151`	`+ val \|> Json.Value.encode \|> Encode.encode 2`
	`152`	`+ in`
	`153`	`+ Html.node "code-sample" [ class "schema-source", Html.Attributes.attribute "code" code ] []`
	`154`	`+`
	`155`	`+ Nothing ->`
	`156`	`+ text ""`
	`157`	`+`
	`158`	`+`
`143`	`159`	`viewSchema : Schema -> Html msg`
`144`	`160`	`viewSchema s =`
`145`	`161`	`let`
`146`	`162`	`code =`
`147`	`163`	`s`
`148`	`164`	`\|> Json.Schema.Definitions.encode`
`149`		`- \|> Json.Encode.encode 2`
	`165`	`+ \|> Encode.encode 2`
`150`	`166`	`in`
`151`	`167`	`Html.node "code-sample" [ class "schema-source", Html.Attributes.attribute "code" code ] []`

Comments

(0)