diff options
author | 2012-09-29 16:09:07 -0400 | |
---|---|---|
committer | 2012-09-29 16:09:07 -0400 | |
commit | 713388bf4d65552d5b2e8b070fbb8879b4264efd (patch) | |
tree | 363375a5c9a5593d1ff4f5f1f94056e155db8367 /Assistant/Threads/NetWatcher.hs | |
parent | dc88c9706d63bb056b01d97509afcec98c0c2f3c (diff) |
avoid some warnings when built w/o dbus
Diffstat (limited to 'Assistant/Threads/NetWatcher.hs')
-rw-r--r-- | Assistant/Threads/NetWatcher.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Assistant/Threads/NetWatcher.hs b/Assistant/Threads/NetWatcher.hs index e9af2a53b..a8daa9435 100644 --- a/Assistant/Threads/NetWatcher.hs +++ b/Assistant/Threads/NetWatcher.hs @@ -19,13 +19,12 @@ import Utility.ThreadScheduler import Remote.List import qualified Types.Remote as Remote -import qualified Control.Exception as E - #if WITH_DBUS import Utility.DBus import DBus.Client import DBus import Data.Word (Word32) +import qualified Control.Exception as E #else #warning Building without dbus support; will poll for network connection changes #endif @@ -34,11 +33,11 @@ thisThread :: ThreadName thisThread = "NetWatcher" netWatcherThread :: ThreadState -> DaemonStatusHandle -> ScanRemoteMap -> NamedThread -netWatcherThread st dstatus scanremotes = thread $ #if WITH_DBUS +netWatcherThread st dstatus scanremotes = thread $ dbusThread st dstatus scanremotes #else - noop +netWatcherThread _ _ _ = thread noop #endif where thread = NamedThread thisThread |