From dbc2139511a2e618bf54f9ae55d6708205944843 Mon Sep 17 00:00:00 2001
From: Swrup <swrup@protonmail.com>
Date: Mon, 4 Apr 2022 12:45:20 +0200
Subject: [PATCH] add check if empty reply

---
 src/babillard.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/babillard.ml b/src/babillard.ml
index 6ccb0a0..8526db4 100644
--- a/src/babillard.ml
+++ b/src/babillard.ml
@@ -397,6 +397,8 @@ let build_reply ~comment ~image_info ~tag_list ?parent_id user_id =
   else if List.length tag_list > 30 then Error "too much tags"
   else if List.exists (fun tag -> String.length tag > 100) tag_list then
     Error "tag too long"
+  else if Option.is_none image_info && String.length (String.trim comment) = 0
+  then Error "Your post must contain an image or a comment"
   else
     let tag_list =
       List.map String.lowercase_ascii