diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-19 20:38:58 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-19 20:38:58 -0400 |
| commit | 107a7b9388077a2b7fe9ce107da3a4a5fa396e2e (patch) | |
| tree | 687326521de2b4da5b38ef9d3facae9f5aa63ab2 /Assistant | |
| parent | d5051ec088a443d0fbc0979d0421e62c60ec13f8 (diff) | |
try to make Utility.Mounts portable
This is an unholy mashup, but it just might work. It works on Linux,
that's all I've tested. :)
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Threads/MountWatcher.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/MountWatcher.hs b/Assistant/Threads/MountWatcher.hs index f3b9c0a3a..cc62c294d 100644 --- a/Assistant/Threads/MountWatcher.hs +++ b/Assistant/Threads/MountWatcher.hs @@ -82,7 +82,7 @@ type MountPoints = S.Set FilePath {- Reads mtab, getting the current set of mount points. -} currentMountPoints :: IO MountPoints -currentMountPoints = S.fromList . map mnt_dir <$> read_mtab +currentMountPoints = S.fromList . map mnt_dir <$> getMounts {- Finds new mount points, given an old and a new set. -} newMountPoints :: MountPoints -> MountPoints -> MountPoints |