blob: 83f9b1f88ce036f464ff99f288e002cb1c9f4c81 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
module DebugTag where
import Data.Typeable
-- | Debug Tags, add more as needed, but ensure XAnnounce is always first, XMisc last
data DebugTag
= XAnnounce
| XAnnounceResponse
| XBitTorrent
| XDHT
| XLan
| XMan
| XNetCrypto
| XNetCryptoOut
| XOnion
| XRelay
| XRoutes
| XPing
| XRefresh
| XJabber
| XTCP
| XMisc
| XNodeinfoSearch
| XUnexpected -- Used only for special anomalous errors that we didn't expect to happen.
| XUnused -- Never commit code that uses XUnused.
deriving (Eq, Ord, Show, Read, Enum, Bounded,Typeable)
|