8 lines
241 B
OCaml
8 lines
241 B
OCaml
|
open Tyxml.Html
|
||
|
|
|
||
|
|
let make_input_text id = input ~a:[ a_id id; a_name id; a_input_type `Text ] ()
|
||
|
|
|
||
|
|
let make_form request ~action ~items =
|
||
|
|
(* TODO labels ...? *)
|
||
|
|
form ~a:[ a_action action; a_method `Post ] (Util.csrf_tag request :: items)
|