simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

break(CCGraph): remove deprecated module and function

Browse source 
Remove Seq and pp_seq
This commit is contained in:
Fardale 2020-07-23 00:00:24 +02:00 • committed by Fardale
parent 644e3487a3
commit b6b2c68913
2 changed files with 0 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/data/CCGraph.ml
View file

@ -35,8 +35,6 @@ module Iter = struct
with Exit_ -> true with Exit_ -> true
end end
module Seq = Iter
(** {2 Interfaces for graphs} *) (** {2 Interfaces for graphs} *)
(** Directed graph with vertices of type ['v] and edges labeled with [e'] *) (** Directed graph with vertices of type ['v] and edges labeled with [e'] *)
@ -608,8 +606,6 @@ module Dot = struct
Format.fprintf out "}@]@;@?"; Format.fprintf out "}@]@;@?";
() ()
let pp_seq = pp_all
let pp ~tbl ~eq ?attrs_v ?attrs_e ?name ~graph fmt v = let pp ~tbl ~eq ?attrs_v ?attrs_e ?name ~graph fmt v =
pp_all ~tbl ~eq ?attrs_v ?attrs_e ?name ~graph fmt (Iter.return v) pp_all ~tbl ~eq ?attrs_v ?attrs_e ?name ~graph fmt (Iter.return v)

16
src/data/CCGraph.mli
View file

@ -49,10 +49,6 @@ module Iter : sig
val to_list : 'a t -> 'a list val to_list : 'a t -> 'a list
end end
module Seq = Iter
(** @deprecated use {!Iter} instead *)
[@@ocaml.deprecated "use {!Iter} instead"]
(** {2 Interfaces for graphs} (** {2 Interfaces for graphs}
This interface is designed for oriented graphs with labels on edges *) This interface is designed for oriented graphs with labels on edges *)
@ -340,18 +336,6 @@ module Dot : sig
(** Same as {!pp} but starting from several vertices, not just one. (** Same as {!pp} but starting from several vertices, not just one.
@since 2.8 *) @since 2.8 *)
val pp_seq : tbl:('v,vertex_state) table ->
eq:('v -> 'v -> bool) ->
?attrs_v:('v -> attribute list) ->
?attrs_e:('e -> attribute list) ->
?name:string ->
graph:('v,'e) t ->
Format.formatter ->
'v iter ->
unit
(** @deprecated see {!pp_all} instead *)
[@@ocaml.deprecated "use {!pp_all} instead"]
val with_out : string -> (Format.formatter -> 'a) -> 'a val with_out : string -> (Format.formatter -> 'a) -> 'a
(** Shortcut to open a file and write to it. *) (** Shortcut to open a file and write to it. *)
end end