1 files changed, 18 insertions, 3 deletions

diff --git a/src/DPut.hs b/src/DPut.hs
index 1b87eb93..94a237f8 100644
--- a/src/DPut.hs
+++ b/src/DPut.hs
@@ -12,8 +12,22 @@ import qualified Data.Text as T
 import qualified Data.Text.Encoding as T
 
 -- | Debug Tags, add more as needed, but ensure XAnnounce is always first, XMisc last
-data DebugTag = XAnnounce | XBitTorrent | XDHT | XLan | XMan | XNetCrypto | XOnion | XRoutes | XPing | XRefresh | XJabber | XMisc
-    deriving (Eq,Ord,Show,Read,Enum,Bounded)
+data DebugTag
+  = XAnnounce
+  | XBitTorrent
+  | XDHT
+  | XLan
+  | XMan
+  | XNetCrypto
+  | XOnion
+  | XRoutes
+  | XPing
+  | XRefresh
+  | XJabber
+  | XMisc
+  | XNodeinfoSearch
+  | XUnused -- Never commit code that uses XUnused.
+  deriving (Eq, Ord, Show, Read, Enum, Bounded)
 
 appName :: String
 appName = "toxmpp"
@@ -44,9 +58,10 @@ setQuiet = setTagLevel WARNING
 setVerbose :: DebugTag -> IO ()
 setVerbose = setTagLevel DEBUG
 
+getVerbose :: DebugTag -> IO Bool
 getVerbose tag = do
     logger <- getLogger (appName <.> show tag)
     case getLevel logger of
         Just p | p <= DEBUG -> return True
         _ -> return False
-    
+