Module Archetype.Gen_storage

exception Anomaly of string
type error_desc =
| NoInitExprFor of string
val pp_error_desc : Ppx_deriving_runtime.Format.formatter -> error_desc -> Ppx_deriving_runtime.unit
val show_error_desc : error_desc -> Ppx_deriving_runtime.string
val emit_error : error_desc -> 'a
val generate_storage : Model.model -> Model.model