Improvements in examples for View in main branch (#30)

* Fix typo in textView example * Improve example for Doc.BindView
dotnet-websharper · Aug 19, 2023 · afe04b1 · afe04b1
1 parent a5c6fb2
commit afe04b1
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/ui/views.md b/ui/views.md
@@ -117,7 +117,7 @@ let vLength =
     |> View.Map String.length
     |> View.Map (fun l -> sprintf "You entered %i characters." l)
 div [] [
-    Doc.Input [] varName
+    Doc.Input [] varTxt
     textView vLength
 ]
 ```
@@ -135,10 +135,11 @@ let vWords =
     |> View.Map (fun s -> s.Split(' '))
     |> Doc.BindView (fun words ->
         words
-        |> Array.map (fun w -> li [] [text w] :> Doc)
+        |> Array.map (fun w -> li [] [text w])
         |> Doc.Concat
     )
 div [] [
+    Doc.InputType.Text [] varTxt
     text "You entered the following words:"
     ul [] [ vWords ]
 ]