Fix compiler warning with OCaml 5.2

OCaml 5.2 complains: Error (warning 53 [misplaced-attribute]): the "deprecated" attribute cannot appear in this context
mirage · Jun 14, 2024 · b7d5cac · b7d5cac
1 parent 1d9e14b
commit b7d5cac
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/cohttp/src/s.ml b/cohttp/src/s.ml
@@ -144,8 +144,8 @@ module type Response = sig
   val version : t -> Code.version
   val status : t -> Code.status_code
 
-  val flush :
-    (t -> bool[@deprecated "this field will be removed in the future"])
+  val flush : (t -> bool)
+  [@@deprecated "this field will be removed in the future"]
 
   val compare : t -> t -> int
 

diff --git a/http/src/http.mli b/http/src/http.mli
@@ -465,10 +465,10 @@ module Response : sig
   val status : t -> Status.t
 
   val flush :
-    (t -> bool
-    [@deprecated
-      "this field will be removed in the future. Provide flush in the \
-       [respond_*] function instead."])
+    (t -> bool)
+  [@@deprecated
+    "this field will be removed in the future. Provide flush in the \
+     [respond_*] function instead."]
 
   val compare : t -> t -> int