summaryrefslogtreecommitdiff
path: root/devel/ocaml-dolmen/files/patch-src_lsp_state.ml
blob: 857f64b34d691a90ffba181ecbd9be8ea66d3cfc (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
--- src/lsp/state.ml.orig	2024-08-15 00:34:51 UTC
+++ src/lsp/state.ml
@@ -45,7 +45,7 @@ let warn ?file:_ ?loc t warn payload =
   in
   Format.kfprintf (fun _ ->
       let msg = Format.flush_str_formatter () in
-      let d = Diagnostic.warn ~loc msg in
+      let d = Diagnostic.warn ~loc (`String msg) in
       add_diag d t) Format.str_formatter "%a"
     Dolmen_loop.Report.Warning.print (warn, payload)
 
@@ -67,7 +67,7 @@ let error ?file:_ ?loc t err payload =
   (* Print the error message *)
   Format.kfprintf (fun _ ->
       let msg = Format.flush_str_formatter () in
-      let d = Diagnostic.error ~loc msg in
+      let d = Diagnostic.error ~loc (`String msg) in
       add_diag d t) Format.str_formatter "%a"
     Dolmen_loop.Report.Error.print (err, payload)