diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-19 21:25:26 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-19 21:25:26 -0400 |
| commit | 0496a3971d4679e6a482a5eb277091980383f831 (patch) | |
| tree | df526c22a4a8e6ff4578fbad8f0f2129684fc44e /Utility/Mounts.hsc | |
| parent | 7298507cf2d92d47a5c3a5ad2ee149ce803b9d15 (diff) | |
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.
Diffstat (limited to 'Utility/Mounts.hsc')
| -rw-r--r-- | Utility/Mounts.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
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 |