summaryrefslogtreecommitdiff
path: root/dht/src/Network/Tox.hs
diff options
context:
space:
mode:
Diffstat (limited to 'dht/src/Network/Tox.hs')
-rw-r--r--dht/src/Network/Tox.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/dht/src/Network/Tox.hs b/dht/src/Network/Tox.hs
index e0704f6f..6adfb9a9 100644
--- a/dht/src/Network/Tox.hs
+++ b/dht/src/Network/Tox.hs
@@ -449,6 +449,7 @@ dnssdDiscover tox ni toxid = do
449 void $ DHT.pingUDP (toxDHT tox) ni 449 void $ DHT.pingUDP (toxDHT tox) ni
450 450
451-- | Log a dbus error 451-- | Log a dbus error
452putDBusError :: Bool -> String -> IO ()
452putDBusError bFatal msg = do 453putDBusError bFatal msg = do
453 let fatality = if bFatal then "Fatal" else "Non-Fatal" 454 let fatality = if bFatal then "Fatal" else "Non-Fatal"
454 prefix = fatality <> " DBus Exception: " 455 prefix = fatality <> " DBus Exception: "