1
2
3
4
5
6
7
8
9
10

module Formlet =

    let rec List (itemForms: list<Formlet<'a>>) : Formlet<list<'a>> =
        match itemForms with
        | [] ->
            Formlet.Yield []
        | itemForm :: rest ->
            Formlet.Yield (fun x xs -> x :: xs)
            <*> itemForm
            <*> List rest

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

let questions =
    [
        "What's your first name?"
        "What's your last name?"
        "How old are you?"
    ]
// Build a formlet per question
questions
|> List.map (fun question ->
    Controls.Input ""
    |> Enhance.WithTextLabel question
    |> Enhance.WithLabelAbove)
// Combine the formlets using the function from above
|> Formlet.List
// Add submit button, form container, action on submit
|> Enhance.WithSubmitButton
|> Enhance.WithFormContainer
|> Formlet.Run (fun responses ->
    List.iter2 (fun q r -> JS.Alert(q + "\n" + r)) questions responses)

1
2
3
4
5
6
7
8
9
10
11
12
13

module Formlet =

    let List (itemForms: list<Formlet<'a>>) : Formlet<list<'a>> =
        let rec list (acc: Formlet<list<'a>>) (itemForms: list<Formlet<'a>>) =
            match itemForms with
            | [] -> acc
            | itemForm :: rest ->
                list
                    (Formlet.Yield (fun x xs -> x :: xs)
                     <*> itemForm
                     <*> acc)
                    rest
        list (Formlet.Yield []) (List.rev itemForms)