diff --git a/src/task.ml b/src/task.ml
index 589ff51..e478a0f 100644
--- a/src/task.ml
+++ b/src/task.ml
@@ -57,7 +57,7 @@ let generate_about_us target =
       (read_child_files dir (with_extension "md"))
       (fun member ->
          Metaformat.read_file_with_metadata (module Model.Person) member
-         >>> snd Markup.to_html)
+         >>> Markup.content_to_html ())
       (fun x () -> x) in
   let* current_members = read_members "metadata/current_members" in
   let* former_members = read_members "metadata/former_members" in