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

fix

Browse source
This commit is contained in:
Joey Hess 2013-01-10 16:43:22 -04:00
parent f99563ad14
commit 6ec2802228
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/Threads/MountWatcher.hs
View file

@ -119,11 +119,11 @@ startOneService client (x:xs) = do
{- Filter matching events recieved when drives are mounted and unmounted. -} {- Filter matching events recieved when drives are mounted and unmounted. -}
mountChanged :: [MatchRule] mountChanged :: [MatchRule]
mountChanged = [gvfs True, gvfsgdu False, kde, kdefallback] mountChanged = [gvfs True, gvfs False, kde, kdefallback]
where where
{- 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 gvfs mount = matchAny
{ matchInterface = Just "org.gtk.Private.RemoteVolumeMonitor" { matchInterface = Just "org.gtk.Private.RemoteVolumeMonitor"
, matchMember = Just $ if mount then "MountAdded" else "MountRemoved" , matchMember = Just $ if mount then "MountAdded" else "MountRemoved"
} }