diff options
Diffstat (limited to 'src/DebugTag.hs')
-rw-r--r-- | src/DebugTag.hs | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/DebugTag.hs b/src/DebugTag.hs new file mode 100644 index 00000000..6a032d73 --- /dev/null +++ b/src/DebugTag.hs | |||
@@ -0,0 +1,23 @@ | |||
1 | module DebugTag where | ||
2 | |||
3 | import Data.Typeable | ||
4 | |||
5 | -- | Debug Tags, add more as needed, but ensure XAnnounce is always first, XMisc last | ||
6 | data DebugTag | ||
7 | = XAnnounce | ||
8 | | XBitTorrent | ||
9 | | XDHT | ||
10 | | XLan | ||
11 | | XMan | ||
12 | | XNetCrypto | ||
13 | | XNetCryptoOut | ||
14 | | XOnion | ||
15 | | XRoutes | ||
16 | | XPing | ||
17 | | XRefresh | ||
18 | | XJabber | ||
19 | | XMisc | ||
20 | | XNodeinfoSearch | ||
21 | | XUnexpected -- Used only for special anomalous errors that we didn't expect to happen. | ||
22 | | XUnused -- Never commit code that uses XUnused. | ||
23 | deriving (Eq, Ord, Show, Read, Enum, Bounded,Typeable) | ||