On Mon, Mar 10, 2014 at 01:48:29PM +0100, Pino Toscano wrote: > ... instead of manually extracting and checking the suffix by ourselves > --- > builder/sources.ml | 5 +---- > 1 file changed, 1 insertion(+), 4 deletions(-) > > diff --git a/builder/sources.ml b/builder/sources.ml > index fd0b236..016adc4 100644 > --- a/builder/sources.ml > +++ b/builder/sources.ml > @@ -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
ACK. Rich. -- Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones Read my programming blog: http://rwmj.wordpress.com Fedora now supports 80 OCaml packages (the OPEN alternative to F#) _______________________________________________ Libguestfs mailing list Libguestfs@redhat.com https://www.redhat.com/mailman/listinfo/libguestfs
