swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

remove duplicate action type

Browse source
This commit is contained in:
Swrup 2022-03-20 20:07:05 +01:00
parent 18ebe6e107
commit 371ed945ce
1 changed files with 0 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/pp_babillard.ml
View file

@ -2,22 +2,6 @@ include Bindings
include Babillard include Babillard
open Db 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 pp_post fmt t =
let thread_data_opt, post = let thread_data_opt, post =
match t with match t with