From 4e0b14a89cceb48b8ed1c63bcceb6a2c48dec167 Mon Sep 17 00:00:00 2001

From: "Richard W.M. Jones" <rjones@redhat.com>

Date: Tue, 14 Jun 2016 18:54:44 +0100

Subject: [PATCH] mllib: Use Unix.F_OK instead of plain F_OK.

Removes this warning:

  File "common_utils.ml", line 826, characters 24-28:

  Warning 40: F_OK was selected from type Unix.access_permission.

  It is not visible in the current scope, and will not

  be selected if the type becomes unknown.

(cherry picked from commit 2ecdc46114f564a42f8d6c51c2c2763ba3dda15e)

---

 mllib/common_utils.ml | 2 +-

 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mllib/common_utils.ml b/mllib/common_utils.ml

index c29dfa0..be8810a 100644

--- a/mllib/common_utils.ml

+++ b/mllib/common_utils.ml

@@ -827,7 +827,7 @@ let is_partition dev =

       let major = Dev_t.major rdev in

       let minor = Dev_t.minor rdev in

       let path = sprintf "/sys/dev/block/%d:%d/partition" major minor in

-      Unix.access path [F_OK];

+      Unix.access path [Unix.F_OK];

       true

     )

   with Unix.Unix_error _ -> false

-- 

2.7.4