2022-12-04 22:42:55 +01:00
|
|
|
open Tyxml.Html
|
|
|
|
|
|
2022-12-06 00:12:14 +01:00
|
|
|
let csrf_tag request =
|
|
|
|
|
let open Tyxml.Html in
|
|
|
|
|
let token = Dream.csrf_token request in
|
|
|
|
|
input ~a:[ a_name "dream.csrf"; a_input_type `Hidden; a_value token ] ()
|
|
|
|
|
|
2022-12-04 22:42:55 +01:00
|
|
|
let make_form request ~action ~items =
|
|
|
|
|
(* TODO labels ...? *)
|
2022-12-06 00:12:14 +01:00
|
|
|
form ~a:[ a_action action; a_method `Post ] (csrf_tag request :: items)
|
