Browse Source

Make type signature easier to read

Leo 8 years ago
parent
commit
30c83e1660
1 changed files with 6 additions and 6 deletions
  1. 6 6
      src/rc.mli

+ 6 - 6
src/rc.mli

@@ -49,22 +49,22 @@ val equal : < equal : 'a -> bool; .. > -> 'a -> bool
 
 (* TODO Improve documentation *)
 class tag : string -> string list ->
-  object ('a)
+  object ('self)
     val arguments : string list
     val name : string
     method arguments : string list
     method name : string
-    method equal : 'a -> bool
+    method equal : 'self -> bool
 end
 class entry : ?tags:tag list -> string ->
-object ('a)
+object ('self)
   val command : string
   val tags : tag list
   method command : string
   method tags : tag list
-  method change_command : string -> 'a
-  method change_tags : tag list -> 'a
-  method equal : 'a -> bool
+  method change_command : string -> 'self
+  method change_tags : tag list -> 'self
+  method equal : 'self -> bool
 end
 type setting = < key : string; value : string >;;
 type t = <