balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Forgot to commit this.

Browse Source
This commit is contained in:
Christian Rinderknecht 2020-01-08 23:47:37 +01:00
parent b8017ca8ac
commit 330d2ab351
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/passes/1-parser/pascaligo.ml
View File

@ -28,6 +28,15 @@ module Errors = struct
] in ] in
error ~data title message error ~data title message
let non_linear_pattern Region.{value; region} =
let title () = Printf.sprintf "repeated variable \"%s\" in this pattern" value in
let message () = "" in
let data = [
("location",
fun () -> Format.asprintf "%a" Location.pp_lift @@ region)
] in
error ~data title message
let duplicate_parameter Region.{value; region} = let duplicate_parameter Region.{value; region} =
let title () = Printf.sprintf "duplicate parameter \"%s\"" value in let title () = Printf.sprintf "duplicate parameter \"%s\"" value in
let message () = "" in let message () = "" in
@ -111,7 +120,9 @@ let parse (parser: 'a parser) source lexbuf =
try try
ok (parser read lexbuf) ok (parser read lexbuf)
with with
SyntaxError.Error (Duplicate_parameter name) -> SyntaxError.Error (Non_linear_pattern var) ->
fail @@ (non_linear_pattern var)
| SyntaxError.Error (Duplicate_parameter name) ->
fail @@ (duplicate_parameter name) fail @@ (duplicate_parameter name)
| SyntaxError.Error (Duplicate_variant name) -> | SyntaxError.Error (Duplicate_variant name) ->
fail @@ (duplicate_variant name) fail @@ (duplicate_variant name)