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 /examples/dhtd.hs | |
| parent | 403cf5dad13bbe0ff757a80c651adc071df0dbc4 (diff) | |
Quieter defaults.
Diffstat (limited to 'examples/dhtd.hs')
| -rw-r--r-- | examples/dhtd.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index 35035372..19fee119 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
| @@ -1387,6 +1387,8 @@ main = runResourceT $ liftBaseWith $ \resT -> do | |||
| 1387 | 1387 | ||
| 1388 | announcer <- forkAnnouncer | 1388 | announcer <- forkAnnouncer |
| 1389 | 1389 | ||
| 1390 | -- Default: quiet all tags. | ||
| 1391 | forM [minBound .. maxBound] setQuiet | ||
| 1390 | 1392 | ||
| 1391 | (quitBt,btdhts,btips,baddrs) <- case portbt opts of | 1393 | (quitBt,btdhts,btips,baddrs) <- case portbt opts of |
| 1392 | "" -> return (return (), Map.empty,return [],[]) | 1394 | "" -> return (return (), Map.empty,return [],[]) |