package archetype

  1. Overview
  2. Docs

Source file ident.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(* -------------------------------------------------------------------- *)
type ident = string
[@@deriving yojson, show {with_path = false},
 visitors { variety = "map"; name = "ident_map"; polymorphic = true },
 visitors { variety = "iter"; name = "ident_iter"; polymorphic = true },
 visitors { variety = "reduce"; name = "ident_reduce"; polymorphic = true },
 visitors { variety = "reduce2"; name = "ident_reduce2"; polymorphic = true }
]

(* -------------------------------------------------------------------- *)
let cmp_ident = (String.compare : ident -> ident -> int)

(* -------------------------------------------------------------------- *)
module Mid = Tools.Map.Make(String)
module Sid = Tools.Set.Make(String)