gistfile1.txt

module Page 

type Person = {
  Name : string
  Age: int
}

let printPerson =
  FunctionComponent.Of (
    (fun (props: {| Person: Person; Dispatch: Msg -> unit |}) ->
        div [
          OnClick (fun _ -> props.Dispatch IncrementAge props.Person.Id)
        ] [
          str "PERSON STUFF"
        ]
    ), "person-block", equalsButFunctions );


let parent (persons: Map<string, Person list>) (dispatch: Msg -> unit) =
  [
    div [] // 
    [
      for KeyValue(dagInWeek, persons) in persons do
        persons
        |> List.map (fun p -> printPerson {| Person = p; Dispatch = dispatch |}
        |> ofList
    ]
  ] |> ofList