wip

src/menhir-recover/dune

@@ -1,3 +1,4 @@
 (executable
  (name main)
- (libraries fix menhirLib menhirSdk))
+ (libraries fix menhirLib menhirSdk)
+ (flags :standard -w -67))

src/menhir-recover/emitter.mli

@@ -5,8 +5,8 @@ open Recovery_intf
 
 module Make
     (G : GRAMMAR)
-    (_ : ATTRIBUTES with module G := G)
-    (_ : SYNTHESIZER with module G := G)
-    (_ : RECOVERY with module G := G) : sig
+    (A : ATTRIBUTES with module G := G)
+    (S : SYNTHESIZER with module G := G)
+    (R : RECOVERY with module G := G) : sig
   val emit : Format.formatter -> unit
 end

src/menhir-recover/recovery_intf.ml

@@ -26,5 +26,5 @@ end
 
 module type RECOVER = functor
     (G : GRAMMAR)
-    (_ : Synthesis.SYNTHESIZER with module G := G)
+    (S : Synthesis.SYNTHESIZER with module G := G)
     -> RECOVERY with module G := G

src/reason-parser/dune

@@ -65,7 +65,7 @@
  (public_name reason)
  (wrapped false)
  (flags
-  (:standard -w -9-52 -safe-string))
+  (:standard -w -9-52-67 -safe-string))
  (modules
   ocaml_util
   reason_syntax_util

src/reason-parser/merlin_recovery.mli

@@ -1,6 +1,6 @@
 module Make
     (Parser : MenhirLib.IncrementalEngine.EVERYTHING)
-    (_ : sig
+    (Recovery : sig
        val default_value : Location.t -> 'a Parser.symbol -> 'a
 
        type action =