summaryrefslogtreecommitdiff
path: root/src/DebugTag.hs
blob: 9ac04bb0a364f305a94531e822dadda8463e22c3 (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
module DebugTag where

import Data.Typeable

-- | Debug Tags, add more as needed, but ensure XAnnounce is always first, XMisc last
data DebugTag
  = XAnnounce
  | XBitTorrent
  | XDHT
  | XLan
  | XMan
  | XNetCrypto
  | XNetCryptoOut
  | XOnion
  | 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)