From 825962518c6ad00279fc23e8e1dec746980e483f Mon Sep 17 00:00:00 2001 From: "jim@bo" Date: Wed, 20 Jun 2018 22:40:37 -0400 Subject: More DPut stuff * verbose/quiet without args shows report * verbose all - sets all tags verbose * quiet all - sets all tags quiet * XMisc defaults to verbose, everything else quiet * new XMan tag for ToxManager related stuff * s/hputStrLn stderr/dput XMisc/ in daemon code --- src/Control/Concurrent/Lifted/Instrument.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Control/Concurrent/Lifted/Instrument.hs') diff --git a/src/Control/Concurrent/Lifted/Instrument.hs b/src/Control/Concurrent/Lifted/Instrument.hs index 5b3237cc..187b9276 100644 --- a/src/Control/Concurrent/Lifted/Instrument.hs +++ b/src/Control/Concurrent/Lifted/Instrument.hs @@ -22,6 +22,7 @@ import Data.Time() import Data.Time.Clock import System.IO import Control.Monad.IO.Class +import DPut data PerThread = PerThread @@ -38,7 +39,7 @@ data GlobalState = GlobalState globals :: MVar GlobalState globals = unsafePerformIO $ newMVar $ GlobalState { threads = Map.empty - , reportException = hPutStrLn stderr + , reportException = dput XMisc } {-# NOINLINE globals #-} -- cgit v1.2.3