On Tue, May 01, 2018 at 03:53:59AM +0300, Mykola Ivanets wrote:
 Instead of using part_to_dev to find such devices we open the
device's
 directory under /sys/block/<device> and look for entries starting with
 <device>, eg. /sys/block/sda/sda1. 
 +(* Look to see if device can directly contain filesystem
(RHBZ#590167).
 + * Partitioned devices cannot contain fileystem, so we will exclude such devices.
 + *) 
Let's keep lines to < 80 characters.
 +and is_not_partitioned_device device =
 +  assert (String.is_prefix device "/dev/");
 +  let device = String.sub device 5 (String.length device - 5) in
 +  let dir = "/sys/block/" ^ device in
 +
 +  try
 +    (* Open the device's directory under /sys/block/<device> and
 +     * look for entries starting with <device>, eg. /sys/block/sda/sda1
 +     *)
 +    let parts = Array.to_list (Sys.readdir dir) in
 +    let has_partition = List.exists (fun part -> String.is_prefix part device) parts
in 
Also this line is >= 80 characters, but could easily be changed
so it's shorter.
 +    not has_partition
 +  with Sys_error (_) -> true 
This is the real problem.  What Sys_error is expected here?  As far as
I can tell if anything throws Sys_error (or any other exception) here
then it's a real bug, so we shouldn't hide the error message.  If
you're not expecting a particular Sys_error, then don't try to catch
anything.
Rich.
-- 
Richard Jones, Virtualization Group, Red Hat 
http://people.redhat.com/~rjones
Read my programming and virtualization blog: 
http://rwmj.wordpress.com
virt-builder quickly builds VMs from scratch
http://libguestfs.org/virt-builder.1.html