avoid build warning from new dbus
This commit is contained in:
		
					parent
					
						
							
								78d6380f5c
							
						
					
				
			
			
				commit
				
					
						84a88aab9a
					
				
			
		
					 1 changed files with 4 additions and 0 deletions
				
			
		| 
						 | 
				
			
			@ -63,7 +63,11 @@ dbusThread urlrenderer = do
 | 
			
		|||
				wasmounted <- liftIO $ swapMVar mvar nowmounted
 | 
			
		||||
				handleMounts urlrenderer wasmounted nowmounted
 | 
			
		||||
			liftIO $ forM_ mountChanged $ \matcher ->
 | 
			
		||||
#if MIN_VERSION_dbus(0,10,7)
 | 
			
		||||
				void $ addMatch client matcher handleevent
 | 
			
		||||
#else
 | 
			
		||||
				listen client matcher handleevent
 | 
			
		||||
#endif
 | 
			
		||||
		, do
 | 
			
		||||
			liftAnnex $
 | 
			
		||||
				warning "No known volume monitor available through dbus; falling back to mtab polling"
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue