Do not expose intermediate fold functions

Signed-off-by: Paul-Elliot <peada@free.fr>

Author: panglesd

src/model/fold.mli

@@ -28,60 +28,18 @@ type item =
 val unit : f:('a -> item -> 'a) -> 'a -> Compilation_unit.t -> 'a
 val page : f:('a -> item -> 'a) -> 'a -> Page.t -> 'a
 
-val signature :
-  f:('a -> item -> 'a) ->
-  Paths.Identifier.LabelParent.t ->
-  'a ->
-  Signature.t ->
-  'a
-val signature_item :
-  f:('a -> item -> 'a) ->
-  Paths.Identifier.LabelParent.t ->
-  'a ->
-  Signature.item ->
-  'a
 val docs :
   f:('a -> item -> 'a) ->
   Paths.Identifier.LabelParent.t ->
   'a ->
   Comment.docs_or_stop ->
   'a
-val include_ :
-  f:('a -> item -> 'a) ->
-  Paths.Identifier.LabelParent.t ->
-  'a ->
-  Include.t ->
-  'a
 val class_type : f:('a -> item -> 'a) -> 'a -> ClassType.t -> 'a
-val class_signature :
-  f:('a -> item -> 'a) ->
-  Paths.Identifier.LabelParent.t ->
-  'a ->
-  ClassSignature.t ->
-  'a
-val class_signature_item :
-  f:('a -> item -> 'a) ->
-  Paths.Identifier.LabelParent.t ->
-  'a ->
-  ClassSignature.item ->
-  'a
 val class_ : f:('a -> item -> 'a) -> 'a -> Class.t -> 'a
 val exception_ : f:('a -> item -> 'a) -> 'a -> Exception.t -> 'a
 val type_extension : f:('a -> item -> 'a) -> 'a -> Extension.t -> 'a
 val value : f:('a -> item -> 'a) -> 'a -> Value.t -> 'a
 val module_ : f:('a -> item -> 'a) -> 'a -> Module.t -> 'a
 val type_decl : f:('a -> item -> 'a) -> 'a -> TypeDecl.t -> 'a
 val module_type : f:('a -> item -> 'a) -> 'a -> ModuleType.t -> 'a
-val simple_expansion :
-  f:('a -> item -> 'a) ->
-  Paths.Identifier.LabelParent.t ->
-  'a ->
-  ModuleType.simple_expansion ->
-  'a
-val module_type_expr :
-  f:('a -> item -> 'a) ->
-  Paths.Identifier.LabelParent.t ->
-  'a ->
-  ModuleType.expr ->
-  'a
 val functor_parameter : f:('a -> item -> 'a) -> 'a -> FunctorParameter.t -> 'a