(* [--stream] mode output functions. *)
open Printf
-open ExtList
open Utils
open Collect
| Inactive, Inactive -> 0)
in
let cmp (name1, dom1) (name2, dom2) = compare(dom1, dom2) in
- List.sort ~cmp doms in
+ List.sort cmp doms in
(*Print domains *)
let dump_domain = fun name rd
-> begin