From b0605f265be3f501930516ff95deab2910ced3ac Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Tue, 4 Oct 2011 20:00:42 +0100
Subject: [PATCH] sparsify: Fix --ignore option to work on canonical device
 names.

---
 sparsify/sparsify.ml | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/sparsify/sparsify.ml b/sparsify/sparsify.ml
index 89a2c13..4782983 100644
--- a/sparsify/sparsify.ml
+++ b/sparsify/sparsify.ml
@@ -177,10 +177,15 @@ let () =
   let filesystems = g#list_filesystems () in
   let filesystems = List.map fst filesystems in
   let filesystems = List.sort compare filesystems in
+
+  let is_ignored fs =
+    let fs = canonicalize fs in
+    List.exists (fun fs' -> fs = canonicalize fs') ignores
+  in
+
   List.iter (
     fun fs ->
-      if not (List.mem fs ignores) then (
-
+      if not (is_ignored fs) then (
         let mounted =
           try g#mount_options "" fs "/"; true
           with _ -> false in
-- 
1.8.3.1