Fixed the build after I made a small error when fixing the latest
merge conflict.
This commit is contained in:
parent
c7ffa6d563
commit
e685e313f0
@ -102,7 +102,7 @@ module Errors = struct
|
|||||||
let data = [
|
let data = [
|
||||||
("expression" ,
|
("expression" ,
|
||||||
(** TODO: The labelled arguments should be flowing from the CLI. *)
|
(** TODO: The labelled arguments should be flowing from the CLI. *)
|
||||||
thunk @@ Parser.Ligodity.ParserLog.expr_to_string
|
thunk @@ Parser.Cameligo.ParserLog.expr_to_string
|
||||||
~offsets:true ~mode:`Point t)
|
~offsets:true ~mode:`Point t)
|
||||||
] in
|
] in
|
||||||
error ~data title message
|
error ~data title message
|
||||||
@ -729,7 +729,7 @@ and simpl_cases : type a . (Raw.pattern * a) list -> (a, unit) matching result =
|
|||||||
(** TODO: The labelled arguments should be flowing from the CLI. *)
|
(** TODO: The labelled arguments should be flowing from the CLI. *)
|
||||||
let content () =
|
let content () =
|
||||||
Printf.sprintf "Pattern : %s"
|
Printf.sprintf "Pattern : %s"
|
||||||
(Parser.Ligodity.ParserLog.pattern_to_string
|
(Parser.Cameligo.ParserLog.pattern_to_string
|
||||||
~offsets:true ~mode:`Point x) in
|
~offsets:true ~mode:`Point x) in
|
||||||
error title content
|
error title content
|
||||||
in
|
in
|
||||||
|
Loading…
Reference in New Issue
Block a user