Fix by Sander.

This commit is contained in:
Christian Rinderknecht 2020-04-13 14:03:30 +02:00
parent f7b0c4fe6b
commit af48efe195

View File

@ -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 =