diff options
| author | joe <joe@jerkface.net> | 2018-06-19 02:18:25 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-06-19 02:18:25 -0400 |
| commit | b07524dc054e2ca2157f8e0920cdcb8b8b25e8e8 (patch) | |
| tree | b35ccc6af41a065c6a5b6a3e59bda43ff3525058 /src/DPut.hs | |
| parent | 403cf5dad13bbe0ff757a80c651adc071df0dbc4 (diff) | |
Quieter defaults.
Diffstat (limited to 'src/DPut.hs')
| -rw-r--r-- | src/DPut.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/DPut.hs b/src/DPut.hs index 482db515..dc699e76 100644 --- a/src/DPut.hs +++ b/src/DPut.hs | |||
| @@ -7,7 +7,7 @@ import Data.Maybe | |||
| 7 | import System.IO.Unsafe (unsafePerformIO) | 7 | import System.IO.Unsafe (unsafePerformIO) |
| 8 | 8 | ||
| 9 | data DebugTag = XAnnounce | XDHT | XOnion | XNetCrypto | XPing | XLan | XMisc | 9 | data DebugTag = XAnnounce | XDHT | XOnion | XNetCrypto | XPing | XLan | XMisc |
| 10 | deriving (Eq,Ord,Show,Read) | 10 | deriving (Eq,Ord,Show,Read,Enum,Bounded) |
| 11 | 11 | ||
| 12 | {-# NOINLINE verbosityMap #-} | 12 | {-# NOINLINE verbosityMap #-} |
| 13 | verbosityMap :: TVar (Map.Map DebugTag Bool) | 13 | verbosityMap :: TVar (Map.Map DebugTag Bool) |