contact.sig

   1 signature CONTACT =
   2 sig
   3     type kind = {id :int, name : string, makeUrl : (string * string) option}
   4
   5     val addKind : string * (string * string) option -> int
   6     val lookupKind : int -> kind
   7     val modKind : kind -> unit
   8     val deleteKind : int -> unit
   9     val listKinds : unit -> kind list
  10 end