Source file `module_name.ml`

1
2
3
4
5
6
7
8
9
10
11
12
open Base
include String

let generate ~prefix ~type_name =
  if Type_name.( = ) type_name Type_name.t
  then prefix
  else prefix ^ "_of_" ^ Type_name.to_string type_name
;;

let diff_module_name ~type_to_diff_name =
  generate ~prefix:"Diff" ~type_name:type_to_diff_name
;;