summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ToxManager.hs2
-rw-r--r--examples/dhtd.hs2
-rw-r--r--src/DPut.hs3
3 files changed, 4 insertions, 3 deletions
diff --git a/ToxManager.hs b/ToxManager.hs
index 2aeff620..14b2070c 100644
--- a/ToxManager.hs
+++ b/ToxManager.hs
@@ -444,7 +444,7 @@ gotAddr' ni@(nodeAddr -> addr) tx theirKey theirDhtKey = atomically blee
444 then return $ return () 444 then return $ return ()
445 else if (now > cookieCreationStamp + cookieMaxAge) 445 else if (now > cookieCreationStamp + cookieMaxAge)
446 then return $ 446 then return $
447 dput XUnused "getCookieIO/shaker - cookie expired" >> 447 dput XNetCrypto "getCookieIO/shaker - cookie expired" >>
448 getCookieIO 448 getCookieIO
449 else do 449 else do
450 reschedule' 5 shaker 450 reschedule' 5 shaker
diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index d397730b..92af259c 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1496,7 +1496,7 @@ sensibleDefaults = Options
1496 , ip6tox = True 1496 , ip6tox = True
1497 , dhtkey = Nothing 1497 , dhtkey = Nothing
1498 , verbosity = 2 1498 , verbosity = 2
1499 , verboseTags = [XUnused] 1499 , verboseTags = [XUnexpected, XUnused]
1500 } 1500 }
1501 1501
1502-- bt=<port>,tox=<port> 1502-- bt=<port>,tox=<port>
diff --git a/src/DPut.hs b/src/DPut.hs
index f3760645..6fd69040 100644
--- a/src/DPut.hs
+++ b/src/DPut.hs
@@ -27,7 +27,8 @@ data DebugTag
27 | XJabber 27 | XJabber
28 | XMisc 28 | XMisc
29 | XNodeinfoSearch 29 | XNodeinfoSearch
30 | XUnused -- Never commit code that uses XUnused. 30 | XUnexpected -- Used only for special anomalous errors that we didn't expect to happen.
31 | XUnused -- Never commit code that uses XUnused.
31 deriving (Eq, Ord, Show, Read, Enum, Bounded) 32 deriving (Eq, Ord, Show, Read, Enum, Bounded)
32 33
33appName :: String 34appName :: String