@@ -111,7 +111,7 @@ testRemoteLiveProcessInfo node1 = do
111111 "pong" <- expect
112112 pInfo <- getProcessInfo serverPid
113113 stash result $ pInfo /= Nothing
114− where
114+ where
115115 launchRemote :: MVar ProcessId -> IO ()
116116 launchRemote locMV = do
117117 node2 <- liftIO $ mkNode "8082"
@@ -119,7 +119,7 @@ testRemoteLiveProcessInfo node1 = do
119119 self <- getSelfPid
120120 liftIO $ putMVar locMV self
121121 _ <- receiveWait [
122− match (\(pid, "ping") -> send pid "pong")
122+ match (\(pid, "ping") -> send pid "pong")
123123 ]
124124 "stop" <- expect
125125 return ()