TESTING: Add some noise to debugging

Author: akshaymankar

integration/test/Testlib/ModService.hs

@@ -405,15 +405,17 @@ data ServiceInstance = ServiceInstance
 timeout :: Int -> IO a -> IO (Maybe a)
 timeout usecs action = either (const Nothing) Just <$> race (threadDelay usecs) action
 
-cleanupService :: (HasCallStack) => ServiceInstance -> IO ()
-cleanupService inst = do
+cleanupService :: (HasCallStack) => Service -> String -> ServiceInstance -> IO ()
+cleanupService svc domain inst = do
   mPid <- getPid inst.handle
   for_ mPid (signalProcess keyboardSignal)
   timeout 50000 (waitForProcess inst.handle) >>= \case
-    Just _ -> pure ()
+    Just _ ->
+      putStrLn $ "[" <> show svc <> "@" <> domain <> "] is dead"
     Nothing -> do
       for_ mPid (signalProcess killProcess)
       void $ waitForProcess inst.handle
+      putStrLn $ "[" <> show svc <> "@" <> domain <> "] was killed with -9"
   whenM (doesFileExist inst.config) $ removeFile inst.config
   whenM (doesDirectoryExist inst.config) $ removeDirectoryRecursive inst.config
 
@@ -468,7 +470,7 @@ withProcess resource overrides service = do
 
   void $ Codensity $ \k -> do
     iok <- appToIOKleisli k
-    liftIO $ E.bracket initProcess cleanupService iok
+    liftIO $ E.bracket initProcess (cleanupService service domain) iok
 
   lift $ waitUntilServiceIsUp domain service