@@ -126,7 +126,8 @@ checkEnv s = liftIO $ getEnv s
126-- other (hopefully more useful) client is installed over the top of
126-- other (hopefully more useful) client is installed over the top of
127-- it. This is the default trace client.
127-- it. This is the default trace client.
128nullTracer :: Process ()
128nullTracer :: Process ()
129−nullTracer = forever' $ receiveWait [ matchUnknown (return ()) ]
130+ forever' $ receiveWait [ matchUnknown (return ()) ]
131systemLoggerTracer :: Process ()
132systemLoggerTracer :: Process ()
132systemLoggerTracer = do
133systemLoggerTracer = do