sig
  val make_filename :
    string ->
    string ->
    GettextCategory.category -> string -> FilePath.DefaultPath.filename
  val find :
    GettextTypes.t ->
    GettextTypes.dir list ->
    GettextCategory.category ->
    GettextTypes.MapTextdomain.key -> FilePath.DefaultPath.filename
end