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

printing error in LazyGraph

Browse source
This commit is contained in:
Simon Cruanes 2014-06-03 17:33:11 +02:00
parent 945325054f
commit b5fb3f0ff0
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
misc/lazyGraph.ml
View file

@ -577,13 +577,13 @@ module Dot = struct
CCSequence.iter CCSequence.iter
(function (function
| Full.EnterVertex (v, attrs, _, _) -> | Full.EnterVertex (v, attrs, _, _) ->
Format.fprintf formatter " @[<h>%a [%a];@]@." pp_vertex v Format.fprintf formatter " @[<h>%a %a;@]@." pp_vertex v
(CCList.print ~sep:"," print_attribute) attrs (CCList.print ~start:"[" ~stop:"]" ~sep:"," print_attribute) attrs
| Full.ExitVertex _ -> () | Full.ExitVertex _ -> ()
| Full.MeetEdge (v2, attrs, v1, _) -> | Full.MeetEdge (v2, attrs, v1, _) ->
Format.fprintf formatter " @[<h>%a -> %a [%a];@]@." Format.fprintf formatter " @[<h>%a -> %a %a;@]@."
pp_vertex v1 pp_vertex v2 pp_vertex v1 pp_vertex v2
(CCList.print ~sep:"," print_attribute) (CCList.print ~start:"[" ~stop:"]" ~sep:"," print_attribute)
attrs) attrs)
events; events;
(* close *) (* close *)