robur/robur.coop
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use Markdown.content_to_html

Browse source 
Instead of `snd Markdown.to_html`
This commit is contained in:
Reynir Björnsson 2023-02-16 13:19:38 +01:00
parent 51883fdd20
commit 36efa8d61b
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/task.ml
View file

@ -57,7 +57,7 @@ let generate_about_us target =
(read_child_files dir (with_extension "md")) (read_child_files dir (with_extension "md"))
(fun member -> (fun member ->
Metaformat.read_file_with_metadata (module Model.Person) member Metaformat.read_file_with_metadata (module Model.Person) member
>>> snd Markup.to_html) >>> Markup.content_to_html ())
(fun x () -> x) in (fun x () -> x) in
let* current_members = read_members "metadata/current_members" in let* current_members = read_members "metadata/current_members" in
let* former_members = read_members "metadata/former_members" in let* former_members = read_members "metadata/former_members" in