Remove warning

script/src/csv.ml

@@ -221,8 +221,6 @@ a1  , b1  , c1  , d1
 *)
 let filter_line rand_csv f =
         let htab = Hashtbl.create (List.length rand_csv.column_name) in
-        let n = List.length rand_csv.column_name in
-        let col_name_arr = Array.of_list rand_csv.column_name in
         let rec save_line a l i = 
                 match l with
                 |[] -> ()

script/src/point_assos_to_gephi.ml

@@ -80,15 +80,12 @@ let () = begin
 
         
         let eleve_sans_asso = supprime_eleve_avec_assos eleves_assos in
-        Csv.map eleve_sans_asso "Assos" (fun x -> "Fantome");
+        let _ = Csv.map eleve_sans_asso "Assos" (fun x -> "Fantome") in
         Csv.save eleve_sans_asso "../../res_script/eleve_sans_asso.csv";
         let eleve_avec_asso = supprime_eleve_sans_assos eleves_assos in
-        Csv.map eleve_avec_asso "Assos" (fun x -> "Asso");
+        let _ = Csv.map eleve_avec_asso "Assos" (fun x -> "Asso") in
         Csv.save eleve_avec_asso "../../res_script/eleve_avec_asso.csv";
         
-        let l1 = Csv.get_column eleve_sans_asso in
-        let l2 = Csv.get_column eleve_avec_asso in
- 
         let tout_eleve = 
                 List.fold_left (fun acc elt -> Csv.add_line acc elt) eleve_sans_asso eleve_avec_asso.data in