let pp_dependencies pp fmt pathlist =
let rec aux fmt = function
|[path] -> Format.fprintf fmt "@[<v 1>-@,@[<v 1>depchain:@,%a@]@]" (pp_list (pp_dependency pp)) path
|path::pathlist ->
(Format.fprintf fmt "@[<v 1>-@,@[<v 1>depchain:@,%a@]@]@," (pp_list (pp_dependency pp)) path;
aux fmt pathlist)
|[] -> ()
in
aux fmt pathlist