Fix by Sander.
This commit is contained in:
parent
f7b0c4fe6b
commit
af48efe195
@ -88,7 +88,7 @@ module Errors =
|
|||||||
("location",
|
("location",
|
||||||
fun () -> Format.asprintf "%a" Location.pp_lift @@ expression_loc)]
|
fun () -> Format.asprintf "%a" Location.pp_lift @@ expression_loc)]
|
||||||
in error ~data title message
|
in error ~data title message
|
||||||
(*
|
|
||||||
let invalid_wild (expr: AST.expr) =
|
let invalid_wild (expr: AST.expr) =
|
||||||
let title () = "" in
|
let title () = "" in
|
||||||
let message () =
|
let message () =
|
||||||
@ -99,7 +99,7 @@ module Errors =
|
|||||||
("location",
|
("location",
|
||||||
fun () -> Format.asprintf "%a" Location.pp_lift @@ expression_loc)]
|
fun () -> Format.asprintf "%a" Location.pp_lift @@ expression_loc)]
|
||||||
in error ~data title message
|
in error ~data title message
|
||||||
*)
|
|
||||||
end
|
end
|
||||||
|
|
||||||
let apply parser =
|
let apply parser =
|
||||||
|
Loading…
Reference in New Issue
Block a user