@@ -494,7 +494,7 @@ testTerminate transport = do
494 runProcess localNode $ do
494 runProcess localNode $ do
495 ref <- monitor pid
495 ref <- monitor pid
496 MonitorNotification ref' pid' (DiedException ex) <- expect
496 MonitorNotification ref' pid' (DiedException ex) <- expect
497− True <- return $ ref == ref' && pid == pid' && ex == "ProcessTerminationException"
497+ True <- return $ ref == ref' && pid == pid' && ex == show ProcessTerminationException
498 return ()
498 return ()
500main :: IO ()
500main :: IO ()