X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=src%2Fcsv_output.ml;h=cb373d5b6175279dd432a5ce59ac195207f58cdd;hb=1aedabd0caf7a0562a3f314dddd13d49e0165c92;hp=f23d673cf14dc19e0f8fc4388400cae3ddfe8a8c;hpb=4c608eef2274bc267d45d62550aafe2151514013;p=virt-top.git

diff --git a/src/csv_output.ml b/src/csv_output.ml
index f23d673..cb373d5 100644
--- a/src/csv_output.ml
+++ b/src/csv_output.ml
@@ -20,8 +20,8 @@
 (* CSV output functions. *)
 
 open Printf
-open ExtList
 
+open Utils
 open Collect
 
 module C = Libvirt.Connect
@@ -92,9 +92,9 @@ let append_csv (_, _, _, _, _, node_info, hostname, _) (* setup *)
   let cmp (_, { rd_domid = rd_domid1 }) (_, { rd_domid = rd_domid2 }) =
     compare rd_domid1 rd_domid2
   in
-  let doms = List.sort ~cmp doms in
+  let doms = List.sort cmp doms in
 
-  let string_of_int64_option = Option.map_default Int64.to_string "" in
+  let string_of_int64_option = map_default Int64.to_string "" in
 
   let domain_fields = List.map (
     fun (domname, rd) ->