Db.fs

type UserInfo = { Name: string; Email : string}

module Server =

    [<Rpc>]
    let GetUsers () =
        Db.GetUsers // Your db call
        |> Seq.map (fun u ->
            {
                Name = u.Name
                Email = u.Email
            }
        )
        |> Seq.toList


module Client =
    [<JavaScript>]
    let UserFormlet (users: list<UserInfo>) =
        Controls.Select ...
    

    type ClientControl(users: list<UserInfo>)
        inherit IntelliFactory.WebSharper.Web.Control()
        new () = new ClientControl([])
        [<JavaScript>]
        override this.Body = 
            UserFormlet users
            :> _