add moderation_action type

2022-03-17 01:05:25 +01:00 · 2022-03-17 01:05:25 +01:00 · 18ebe6e107
commit 18ebe6e107
parent 3029661ecf
4 changed files with 47 additions and 16 deletions
--- a/src/babillard.ml
+++ b/src/babillard.ml
@ -1,6 +1,22 @@
 open Db
 include Bindings

+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
+
 type thread_data =
  { subject : string
  ; lng : float