1. Dmitry Grebeniuk
  2. cadastr

Commits

Dmitry Grebeniuk  committed 57a20c8

.

  • Participants
  • Parent commits 7698078
  • Branches default

Comments (0)

Files changed (2)

File src/cd_Array.ml

View file
  • Ignore whitespace
 
     value dump ~t arr =
       arr
-      |> map_to_list (show ~t)
+      |> map_to_list (show t)
       |> String.concat " ; "
       |> sprintf "[| %s |]"
     ;

File src/cdt.ml

View file
  • Ignore whitespace
 (***************************************************************)
 
 value opt_cmp
- : !'a . ~t:(#t 'a) -> 'a -> 'a -> cmp_res
- = fun ~t -> t#topt#cmp
+ : !'a . (#t 'a) -> 'a -> 'a -> cmp_res
+ = fun t -> t#topt#cmp
 ;
 
 value opt_eq
- : !'a . ~t:(#t 'a) -> 'a -> 'a -> bool
- = fun ~t -> t#topt#eq
+ : !'a . (#t 'a) -> 'a -> 'a -> bool
+ = fun t -> t#topt#eq
 ;
 
 value opt_hash
- : !'a . ~t:(#t 'a) -> 'a -> int
- = fun ~t -> t#topt#hash
+ : !'a . (#t 'a) -> 'a -> int
+ = fun t -> t#topt#hash
+;
+
+value cmp
+ : !'a . (#tcmp 'a) -> 'a -> 'a -> cmp_res
+ = fun t -> t#cmp
+;
+
+value eq
+ : !'a . (#teq 'a) -> 'a -> 'a -> bool
+ = fun t -> t#eq
+;
+
+value hash
+ : !'a . (#thash 'a) -> 'a -> int
+ = fun t -> t#hash
 ;
 
 value show
- : !'a . ~t:(#t 'a) -> 'a -> string
- = fun ~t -> t#topt#show
+ : !'a . (#t 'a) -> 'a -> string
+ = fun t -> t#topt#show
 ;