diff options
Diffstat (limited to 'main')
| -rw-r--r-- | main/Test.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/main/Test.hs b/main/Test.hs index 84cce1a..da45846 100644 --- a/main/Test.hs +++ b/main/Test.hs @@ -675,9 +675,16 @@ cmdStartServer = do } ( sname, _ ) -> throwOtherError $ "unknown service `" <> T.unpack sname <> "'" + serviceTracers <- forM (map fst $ filter (("trace" `elem`) . snd) serviceNames) $ \case + sname -> throwOtherError $ "tracer not implemented for ‘" <> T.unpack sname <> "’" + + let serverOptions' = serverOptions + { serverServicePacketTracers = serviceTracers + } + let logPrint str = do BC.hPutStrLn stdout (BC.pack str) hFlush stdout - rsServer <- liftIO $ startServer serverOptions h logPrint services + rsServer <- liftIO $ startServer serverOptions' h logPrint services rsPeerThread <- liftIO $ forkIO $ void $ forever $ do peer <- getNextPeerChange rsServer |