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

fix fix to names

Browse source
This commit is contained in:
Joey Hess 2013-01-10 16:18:26 -04:00
parent 353467980f
commit f99563ad14
1 changed files with 2 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Assistant/Threads/MountWatcher.hs
View file

@ -121,15 +121,10 @@ startOneService client (x:xs) = do
mountChanged :: [MatchRule] mountChanged :: [MatchRule]
mountChanged = [gvfs True, gvfsgdu False, kde, kdefallback] mountChanged = [gvfs True, gvfsgdu False, kde, kdefallback]
where where
{- gdu gvfs reliably generates this event whenever a {- 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.UDisks2VolumeMonitor" { matchInterface = Just "org.gtk.Private.RemoteVolumeMonitor"
, matchMember = Just $ if mount then "MountAdded" else "MountRemoved"
}
{- new gvfs -}
gvfs mount = matchAny
{ 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,