| h1::tl (* when h1 <> h2 *) -> h1 :: list_uniq tl
let extension s =
- let idx = String.rindex s '.' in
- String.sub s idx (String.length s - idx)
+ try
+ let idx = String.rindex s '.' in
+ String.sub s idx (String.length s - idx)
+ with Not_found -> ""