diff options
Diffstat (limited to 'Assistant/Threads/MountWatcher.hs')
| -rw-r--r-- | Assistant/Threads/MountWatcher.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Assistant/Threads/MountWatcher.hs b/Assistant/Threads/MountWatcher.hs index 51c7590ea..2cde0f183 100644 --- a/Assistant/Threads/MountWatcher.hs +++ b/Assistant/Threads/MountWatcher.hs @@ -98,11 +98,11 @@ checkMountMonitor :: Client -> IO Bool checkMountMonitor client = do running <- filter (`elem` usableservices) <$> listServiceNames client - if null running - then startOneService client startableservices - else do + case running of + [] -> startOneService client startableservices + (service:_) -> do debug thisThread [ "Using running DBUS service" - , Prelude.head running + , service , "to monitor mount events." ] return True |