mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

builder: use Filename.check_suffix

Browse Source 
... instead of manually extracting and checking the suffix by ourselves
This commit is contained in:
Pino Toscano
2014-03-10 13:42:16 +01:00
parent 596955c1b5
commit 8ba31e69dc
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
builder/sources.ml
View File

@@ -87,10 +87,7 @@ let merge_sources current_sources new_sources =
) new_sources current_sources
let filter_filenames filename =
let suffix = ".conf" in
let n = String.length filename in
let ns = String.length suffix in
n >= ns && String.sub filename (n - ns) ns = suffix
Filename.check_suffix filename ".conf"
let read_sources ~prog ~debug =
let dirs = Paths.xdg_config_dirs ~prog in