From 36efa8d61b8def4139bff96bff4f91b6977a74fc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Reynir=20Bj=C3=B6rnsson?= <reynir@reynir.dk>
Date: Thu, 16 Feb 2023 13:19:38 +0100
Subject: [PATCH] Use Markdown.content_to_html

Instead of `snd Markdown.to_html`
---
 src/task.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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