1. Dmitry Grebeniuk
  2. amall

Commits

Dmitry Grebeniuk  committed a6a6a8b

.

  • Participants
  • Parent commits 2ea3ba9
  • Branches default

Comments (0)

Files changed (1)

File amall_http_service.ml

View file
      =
       struct
 
-        class map_rw_assoc ['k, 'v] ~keq cur =
-          object (self)
+        class map_rw_assoc ['k, 'v] ~keq cur
+        =
+          object (self : #Tfun.map_rw 'k 'v)
             inherit Tfun.map_rw ['k, 'v];
             method add k v = new map_rw_assoc ~keq [(k, v) :: cur];
             method mem k =
 
         class map_rw_of_Sfun ['k, 'v] (fu : Tfun.map_rw 'k 'v)
         =
-          object (_self)
+          object (_self : #Timp.map_rw 'k 'v)
 
             inherit Timp.map_rw ['k, 'v];
 
             value mutable cur = fu;
 
-(*
-            inherit T.map_ro ['k, 'v];
-*)
-
             method add k v = cur := cur#add k v;
 
             method remove k = cur := cur#remove k;