disable unused functor parameter warning

unnammed functor parameters are older than 4.03

Author: Octachron

lib/dep_zipper.mli

@@ -5,3 +5,4 @@ module Outline(Env : Stage.envt):
 
 module Make(Env:Stage.envt)(Param:Stage.param):
   Stage.outliner with type envt := Env.t 
+[@@warning "-67"]

lib/schematic.mli

@@ -22,7 +22,7 @@ end
 module type label = sig type t val l:string end
 type 'a label = (module label with type t = 'a)
 module Label: functor(X:sig val l:string end) ->
-  sig type t val l: t label end
+  sig type t val l: t label end[@@warning "-unused-functor-parameter"]
 
 val show: 'a label -> string
 

lib/solver.mli

@@ -104,7 +104,7 @@ module Make
       (** Solve **)
        val solve: Envt.t -> Unit.s list Unit.pair -> Unit.r list Unit.pair
 
-    end
+    end[@@warning "-67"]
 
 (** Alternative solver *)
 module Directed
@@ -150,4 +150,4 @@ sig
   val solve: loader -> entry list -> Envt.t -> Namespaced.t list
     -> Envt.t * Unit.r list
 
-end
+end[@@warning "-67"]

lib/zipper_pp.mli

@@ -22,6 +22,6 @@ end
 
 module Make(Def:Zipper_def.s)(R:Result_printer with module T := Def.T): sig
   val pp: Zipper_skeleton.path_in_context Def.zipper Pp.t
-end
+end[@@warning "-67"]
 
 module Opaque(Def:Zipper_def.s) : Result_printer with module T := Def.T