simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 03:05:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add html.to_string_l

Browse source
This commit is contained in:
Simon Cruanes 2022-03-29 16:42:02 -04:00
parent 091f2f7ff2
commit 5f59174087
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/Tiny_httpd_html.ml
View file

@ -19,6 +19,15 @@ let to_string ?(top=false) (self:elt) : string =
self out;
Out.to_string out
(** Convert a list of HTML elements to a string.
This is designed for fragments of HTML that are to be injected inside
a bigger context, as it's invalid to have multiple elements at the toplevel
of a HTML document. *)
let to_string_l (l:elt list) =
let out = Out.create () in
List.iter (fun f -> f out; Out.add_format_nl out) l;
Out.to_string out
let to_string_top = to_string ~top:true
(** Convert a HTML element to a stream. This might just convert