Corrected warning in profile.ml

lib/profile.ml

@@ -51,7 +51,7 @@ type profile_choice =
   | All
   | Dist
   | Unif_3
-  
+
 let profile_l_of_splitted_profile ~nb_cat ~nb_sites profile_fn ~seed =
   let profile_f = input profile_fn in
   let prefix = Filename.chop_extension (Filename.basename profile_fn) in
@@ -73,5 +73,4 @@ let profile_l_of_splitted_profile ~nb_cat ~nb_sites profile_fn ~seed =
       {profile_c=p0 ; profile_n=prefix ^ "_1categorie_max_dist" ; profile_f};
     )
   | All -> (let p0 = splitted_profile / selector ["profile_0.tsv"] in
-          {profile_c=p0; profile_n=prefix ; profile_f})
-  | _ -> failwith {| nbcat must be 1 or 3 |}
+            {profile_c=p0; profile_n=prefix ; profile_f})