From 1ddd20ffb9bf3857789f471833ce45a50fcdf915 Mon Sep 17 00:00:00 2001 From: YOSHIDA Masanori Date: Fri, 13 Nov 2015 09:36:41 +0900 Subject: [PATCH] Fix several signature mismatches --- code/classes/class_types_stack.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/classes/class_types_stack.ml b/code/classes/class_types_stack.ml index f2bf00c..152f837 100644 --- a/code/classes/class_types_stack.ml +++ b/code/classes/class_types_stack.ml @@ -12,7 +12,7 @@ end module AbstractStack : sig type 'a t = < pop: 'a option; push: 'a -> unit > - val make : unit -> 'a t + val make : 'a list -> 'a t end = Stack (* part 2 *) @@ -20,11 +20,11 @@ module VisibleStack : sig type 'a t = < pop: 'a option; push: 'a -> unit > - class ['a] stack : object + class ['a] stack : 'a list -> object val mutable v : 'a list method pop : 'a option method push : 'a -> unit end - val make : unit -> 'a t + val make : 'a list -> 'a t end = Stack