Project

General

Profile

Revision 9b0432bc lib/types.ml

View differences:

lib/types.ml
43 43
    | Tbool
44 44
    | Trat (* Actually unused for now. Only place where it can appear is
45 45
              in a clock declaration *)
46
  [@@deriving show]
46 47

  
47 48
  let type_string_builder = Tstring
48 49
  let type_int_builder = Tint
......
100 101

  
101 102
  module BasicT = BasicT
102 103
  type basic_type = BasicT.t
104
  [@@deriving show]
103 105
  type type_expr   =
104 106
    {mutable tdesc: type_desc;
105 107
     tid: int}
......
116 118
    | Tlink of type_expr (* During unification, make links instead of substitutions *)
117 119
    | Tvar (* Monomorphic type variable *)
118 120
    | Tunivar (* Polymorphic type variable *)
121
  [@@deriving show]
119 122

  
120 123
  (*   {mutable tdesc: type_desc; *)
121 124
  (*    tid: int} *)
......
491 494
    | Tlink of type_expr (* During unification, make links instead of substitutions *)
492 495
    | Tvar (* Monomorphic type variable *)
493 496
    | Tunivar (* Polymorphic type variable *)
497
    [@@deriving show]
494 498

  
495 499
  type error =
496 500
      Unbound_value of ident  

Also available in: Unified diff