src/translist.ml

   1 open Format
   2 include Hlist.Make(Transition)
   3 let print ppf fl =
   4   let l = fold (fun t acc -> t :: acc) fl [] in
   5   let strings = Transition.format_list l in
   6   Pretty.pp_print_list ~sep:pp_force_newline pp_print_string ppf strings