1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
open! Core_kernel
type t = string
include Identifiable.Make (struct
include String.Caseless
let module_name = "Username"
let to_string = ident
let of_string string =
List.find_map [ "u/"; "/u/" ] ~f:(fun prefix -> String.chop_prefix string ~prefix)
|> Option.value ~default:string
;;
end)
let of_string_or_deleted string =
match string with
| "[deleted]" -> None
| _ -> Some (of_string string)
;;