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

1 files changed, 2 insertions, 1 deletions

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 #-}