summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIlyaPortnov <>2011-10-14 12:58:43 (GMT)
committerhdiff <hdiff@luite.com>2011-10-14 12:58:43 (GMT)
commit081a0a82808735eb1d9c22d1a5b1e9713e17f07b (patch)
tree690d868194ba2de7a624b1f1d8fa2f6bd12bbb08
parentdf90dd15cbe89eda8defaed19f1b5504687e49c2 (diff)
version 0.1.10.1.1
-rw-r--r--Network/Avahi/Browse.hs3
-rw-r--r--avahi.cabal2
2 files changed, 1 insertions, 4 deletions
diff --git a/Network/Avahi/Browse.hs b/Network/Avahi/Browse.hs
index 15cc76d..18556fb 100644
--- a/Network/Avahi/Browse.hs
+++ b/Network/Avahi/Browse.hs
@@ -47,7 +47,6 @@ dispatch pairs signal = do
handler :: Proxy -> (Service -> IO ()) -> BusName -> Signal -> IO ()
handler server callback busname signal = do
--- print (signalMember signal)
dispatch [("ItemNew", on_new_item server),
("Found", on_service_found callback) ] signal
@@ -55,7 +54,6 @@ on_new_item :: Proxy -> Signal -> IO ()
on_new_item server signal = do
let body = signalBody signal
[iface,proto,name,stype,domain,flags] = body
--- putStrLn $ "New item: " ++ show body
call server serverInterface "ServiceResolverNew" [iface,
proto,
name,
@@ -78,7 +76,6 @@ on_service_found callback signal = do
serviceAddress = fromVariant addr,
servicePort = fromVariant_ "service port" port,
serviceText = maybe "" toString (fromVariant text :: Maybe [[Word8]]) }
- putStrLn $ "Service resolved: " ++ show service
callback service
toString :: [[Word8]] -> String
diff --git a/avahi.cabal b/avahi.cabal
index 6b5ff5d..d5c35cb 100644
--- a/avahi.cabal
+++ b/avahi.cabal
@@ -1,7 +1,7 @@
-- The name of the package.
Name: avahi
-Version: 0.1
+Version: 0.1.1
Synopsis: Minimal DBus bindings for Avahi daemon (http://avahi.org)