c6b95bf07a
- do not use plain JSON rep for errors and use polymorphic variants instead - split formatting for human readable and JSON output - no more simple_errors simple_fails - much less result bindings used in stages
19 lines
539 B
OCaml
19 lines
539 B
OCaml
open Errors
|
|
open Ast_imperative
|
|
open Trace
|
|
open Stage_common.Helpers
|
|
|
|
let peephole_type_expression : type_expression -> (type_expression , self_ast_imperative_error) result = fun e ->
|
|
let return type_content = ok {type_content; location=e.location } in
|
|
match e.type_content with
|
|
| T_sum cmap ->
|
|
let%bind _uu = bind_map_cmapi
|
|
(fun k _ ->
|
|
let (Constructor name) = k in
|
|
if (String.length name >= 32) then fail @@ too_long_constructor name e
|
|
else ok ()
|
|
)
|
|
cmap in
|
|
ok e
|
|
| e -> return e
|