1 files changed, 20 insertions, 2 deletions

diff --git a/dht/src/Network/Tox/Avahi.hs b/dht/src/Network/Tox/Avahi.hs
index 635ba656..2ca6515c 100644
--- a/dht/src/Network/Tox/Avahi.hs
+++ b/dht/src/Network/Tox/Avahi.hs
@@ -1,4 +1,5 @@
 {-# OPTIONS_GHC -Wall #-}
+{-# LANGUAGE CPP             #-}
 {-# LANGUAGE RecordWildCards #-}
 {-# LANGUAGE ViewPatterns    #-}
 module Network.Tox.Avahi
@@ -10,11 +11,17 @@ module Network.Tox.Avahi
 import Control.Applicative
 import Data.Foldable
 import Network.Address
-import Network.Avahi
 import Network.BSD         (getHostName)
 import Network.Tox.NodeId
 import Text.Read
 
+#if defined(VERSION_avahi)
+import Network.Avahi
+#else
+data Service = Service
+#endif
+
+
 toxServiceName :: String
 toxServiceName = "_tox_dht._udp"
 
@@ -26,7 +33,9 @@ a <.> b = a ++ "." ++ b
 
 toxService :: String -> PortNumber -> NodeId -> (Maybe NodeId) -> Service
 toxService hostname (fromIntegral -> port) dhtkey toxid =
-  Service {
+  Service
+#if defined(VERSION_avahi)
+  {
     serviceProtocol = PROTO_UNSPEC,
     serviceName     = "Tox DHT @ " ++ hostname,
     serviceType     = toxServiceName,
@@ -36,10 +45,15 @@ toxService hostname (fromIntegral -> port) dhtkey toxid =
     servicePort     = port,
     serviceText     = maybe (show dhtkey) (show . ((,) dhtkey)) toxid
   }
+#endif
 
 announceToxServiceWithHostname :: String -> PortNumber -> NodeId -> (Maybe NodeId) -> IO ()
+#if defined(VERSION_avahi)
 announceToxServiceWithHostname  = (boobs.boobs) announce toxService
   where boobs = ((.).(.))
+#else
+announceToxServiceWithHostname _ _ _ _ = return ()
+#endif
 
 announceToxService :: PortNumber -> NodeId -> (Maybe NodeId) -> IO ()
 announceToxService a b c = do
@@ -48,6 +62,7 @@ announceToxService a b c = do
 
 queryToxService :: (NodeInfo -> Maybe NodeId -> IO ()) -> IO ()
 queryToxService cb =
+#if defined(VERSION_avahi)
   browse $
   BrowseQuery
   { lookupProtocol    = PROTO_UNSPEC
@@ -63,3 +78,6 @@ queryToxService cb =
           addr = readMaybe =<< serviceAddress
           p    = fromIntegral servicePort
       forM_ nid $ \n -> forM_ addr $ \a -> cb (NodeInfo n a p) (snd <$> both)
+#else
+  return ()
+#endif