mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

seems I got the name wrong

Browse source
This commit is contained in:
Joey Hess 2013-01-10 16:08:40 -04:00
parent f6e32c132e
commit 7e6fbd3507
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/Threads/MountWatcher.hs
View file

@ -98,7 +98,7 @@ checkMountMonitor client = do
where where
startableservices = [gvfs, gvfsgdu] startableservices = [gvfs, gvfsgdu]
usableservices = startableservices ++ [kde] usableservices = startableservices ++ [kde]
gvfs = "org.gtk.Private.RemoteVolumeMonitor" gvfs = "org.gtk.Private.UDisks2VolumeMonitor"
gvfsgdu = "org.gtk.Private.GduVolumeMonitor" gvfsgdu = "org.gtk.Private.GduVolumeMonitor"
kde = "org.kde.DeviceNotifications" kde = "org.kde.DeviceNotifications"
@ -124,12 +124,12 @@ mountChanged = [gvfs True, gvfsgdu False, kde, kdefallback]
{- gdu gvfs reliably generates this event whenever a {- gdu gvfs reliably generates this event whenever a
- drive is mounted/unmounted, whether automatically, or manually -} - drive is mounted/unmounted, whether automatically, or manually -}
gvfsgdu mount = matchAny gvfsgdu mount = matchAny
{ matchInterface = Just "org.gtk.Private.RemoteVolumeMonitor" { matchInterface = Just "org.gtk.Private.UDisks2VolumeMonitor"
, matchMember = Just $ if mount then "MountAdded" else "MountRemoved" , matchMember = Just $ if mount then "MountAdded" else "MountRemoved"
} }
{- new gvfs -} {- new gvfs -}
gvfs mount = matchAny gvfs mount = matchAny
{ matchInterface = Just "org.gtk.Private.RemoteVolumeMonitor" { matchInterface = Just "org.gtk.Private.UDisks2VolumeMonitor"
, matchMember = Just $ if mount then "MountAdded" else "MountRemoved" , matchMember = Just $ if mount then "MountAdded" else "MountRemoved"
} }
{- This event fires when KDE prompts the user what to do with a drive, {- This event fires when KDE prompts the user what to do with a drive,