diff options
Diffstat (limited to 'dht/src/Network/Tox.hs')
-rw-r--r-- | dht/src/Network/Tox.hs | 1 |
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 |
452 | putDBusError :: Bool -> String -> IO () | ||
452 | putDBusError bFatal msg = do | 453 | putDBusError 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: " |