From c8533911300df8d4897a3109ea30d43be7f430eb Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Wed, 1 Nov 2017 15:01:37 +0100
Subject: Fix FIXME: use OCaml 4.02 generative functors when available.

4.02.3 has been the minimal OCaml version for a while now.
---
 stm/asyncTaskQueue.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'stm/asyncTaskQueue.ml')

diff --git a/stm/asyncTaskQueue.ml b/stm/asyncTaskQueue.ml
index 5d9b595d36..a356f32e9d 100644
--- a/stm/asyncTaskQueue.ml
+++ b/stm/asyncTaskQueue.ml
@@ -49,7 +49,7 @@ end
 
 type expiration = bool ref
 
-module Make(T : Task) = struct
+module Make(T : Task) () = struct
 
   exception Die
   type response =
@@ -107,7 +107,7 @@ module Make(T : Task) = struct
     let open Feedback in
     feedback ~id:Stateid.initial (WorkerStatus(id, s))
 
-  module Worker = Spawn.Sync(struct end)
+  module Worker = Spawn.Sync ()
 
   module Model = struct
 
@@ -354,5 +354,5 @@ module Make(T : Task) = struct
 
 end
 
-module MakeQueue(T : Task) = struct include Make(T) end
-module MakeWorker(T : Task) = struct include Make(T) end
+module MakeQueue(T : Task) () = struct include Make(T) () end
+module MakeWorker(T : Task) () = struct include Make(T) () end
-- 
cgit v1.2.3