|
@@ -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 = <
|