ligo/src/passes/03-self_ast_imperative/entrypoints_length_limit.ml

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
result monad refactoring: - 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 2020-06-12 13:33:14 +02:00			`open Errors`
compiling 2020-03-12 23:20:39 +01:00			`open Ast_imperative`
now map over type declarations 2020-02-21 17:07:48 +01:00			`open Trace`
			`open Stage_common.Helpers`

result monad refactoring: - 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 2020-06-12 13:33:14 +02:00			`let peephole_type_expression : type_expression -> (type_expression , self_ast_imperative_error) result = fun e ->`
add srcloc for types 2020-04-09 18:19:22 +02:00			`let return type_content = ok {type_content; location=e.location } in`
now map over type declarations 2020-02-21 17:07:48 +01:00			`match e.type_content with`
			`\| T_sum cmap ->`
			`let%bind _uu = bind_map_cmapi`
			`(fun k _ ->`
			`let (Constructor name) = k in`
result monad refactoring: - 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 2020-06-12 13:33:14 +02:00			`if (String.length name >= 32) then fail @@ too_long_constructor name e`
now map over type declarations 2020-02-21 17:07:48 +01:00			`else ok ()`
			`)`
			`cmap in`
			`ok e`
			`\| e -> return e`