Fixed the build after I made a small error when fixing the latest

merge conflict.
This commit is contained in:
Christian Rinderknecht 2019-12-13 12:30:59 +01:00
parent c7ffa6d563
commit e685e313f0

View File

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