From 0496a3971d4679e6a482a5eb277091980383f831 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 19 Jul 2012 21:25:26 -0400
Subject: store whole Mntents

This way, if a mount point was already mounted, but something else
gets mounted there, it'll be seen as a new mount.
---
 Utility/Mounts.hsc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Utility/Mounts.hsc')

diff --git a/Utility/Mounts.hsc b/Utility/Mounts.hsc
index 6bcb03f2c..4994c5e18 100644
--- a/Utility/Mounts.hsc
+++ b/Utility/Mounts.hsc
@@ -30,7 +30,7 @@ data Mntent = Mntent
 	{ mnt_fsname :: String
 	, mnt_dir :: String
 	, mnt_type :: String
-	} deriving (Read, Show, Eq)
+	} deriving (Read, Show, Eq, Ord)
 
 getMounts :: IO [Mntent]
 getMounts = do
-- 
cgit v1.2.3