diff options
| author | Emilio Jesus Gallego Arias | 2018-11-09 13:01:53 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-11-12 03:32:32 +0100 |
| commit | a8a3aeb49f3627a65c86c92b0ed743f7bfcf9ffb (patch) | |
| tree | 9f0e929522f2c46249200ff4e270833c014c0ec9 /clib/cUnix.ml | |
| parent | 186d67228018a84a93de024971356249ddbde668 (diff) | |
[clib] Remove unneeded `get_extension` function.
This has been in OCaml since 4.04.
Diffstat (limited to 'clib/cUnix.ml')
| -rw-r--r-- | clib/cUnix.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/clib/cUnix.ml b/clib/cUnix.ml index 6b42e3041d..eedd878f93 100644 --- a/clib/cUnix.ml +++ b/clib/cUnix.ml @@ -74,10 +74,6 @@ let canonical_path_name p = let make_suffix name suffix = if Filename.check_suffix name suffix then name else (name ^ suffix) -let get_extension f = - let pos = try String.rindex f '.' with Not_found -> String.length f in - String.sub f pos (String.length f - pos) - let correct_path f dir = if Filename.is_relative f then Filename.concat dir f else f |