rm warning

lib/profile.ml

@@ -59,8 +59,8 @@ let profile_l_of_splitted_profile ~nb_cat ~nb_sites profile_fn =
   let splitted_profile = split_profile ~nb_sites ~dist_bins profile_f in
   match nb_cat with
   | 3 -> (
-      let p0 = splitted_profile / selector ["profile_0.tsv"] in
-      let p1 = splitted_profile / selector ["profile_1.tsv"] in
+      let _p0 = splitted_profile / selector ["profile_0.tsv"] in
+      let _p1 = splitted_profile / selector ["profile_1.tsv"] in
       let p2 = splitted_profile / selector ["profile_2.tsv"] in
       (*{profile_c=cat_file [p0;p1;p2] ; profile_n=prefix ^ "_3categories" ; profile_f}*)
       {profile_c=p2 ; profile_n=prefix ^ "_1categorie_max_dist" ; profile_f};