Error (cir_builder.Cir_builder.Error)

val one : 'a -> ('b, 'a Cir_builder.Types.NEL.t) Stdlib.result

val extra : 
  Types.extraneous_stuff ->
  locs:Cobol_common.Srcloc.TYPES.srcloc Cir_builder.Types.NEL.t ->
  ('a, Types.error Cir_builder.Types.NEL.t) Stdlib.result

val missing : 
  Types.missing_stuff ->
  loc:Cobol_common.Srcloc.TYPES.srcloc ->
  ('a, Types.error Cir_builder.Types.NEL.t) Stdlib.result

val loc_retriever_for_extended_type : 
  unit ->
  (('a -> Cobol_common.Srcloc.TYPES.srcloc option) ->
  unit)
  * ('a ->
  Cobol_common.Srcloc.TYPES.srcloc option)

val register_error_loc_retriever : 
  (Types.error -> Cobol_common.Srcloc.TYPES.srcloc option) ->
  unit

val loc : Types.error -> Cobol_common.Srcloc.TYPES.srcloc option

val register_loc_retrievers : unit -> unit