From 371ed945ce835ec640f533b514ae7ab38fae167e Mon Sep 17 00:00:00 2001 From: Swrup Date: Sun, 20 Mar 2022 20:07:05 +0100 Subject: [PATCH] remove duplicate action type --- src/pp_babillard.ml | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/src/pp_babillard.ml b/src/pp_babillard.ml index 7ed16fd..1ba15a5 100644 --- a/src/pp_babillard.ml +++ b/src/pp_babillard.ml @@ -2,22 +2,6 @@ include Bindings include Babillard open Db -type moderation_action = - | Ignore - | Delete - | Banish - -let moderation_action_to_string = function - | Ignore -> "ignore" - | Delete -> "delete" - | Banish -> "banish" - -let moderation_action_from_string = function - | "ignore" -> Some Ignore - | "delete" -> Some Delete - | "banish" -> Some Banish - | _ -> None - let pp_post fmt t = let thread_data_opt, post = match t with