git.iko.soy/distributed-process
on master help sign in
cosmetic (whitespace)
08578e9Tim Watson
tests/TestStats.hs+2−2
compare with master
unifiedsplit
@@ -111,7 +111,7 @@ testRemoteLiveProcessInfo node1 = do
111 "pong" <- expect
111 "pong" <- expect
112 pInfo <- getProcessInfo serverPid
112 pInfo <- getProcessInfo serverPid
113 stash result $ pInfo /= Nothing
113 stash result $ pInfo /= Nothing
114− where
114+ where
115 launchRemote :: MVar ProcessId -> IO ()
115 launchRemote :: MVar ProcessId -> IO ()
116 launchRemote locMV = do
116 launchRemote locMV = do
117 node2 <- liftIO $ mkNode "8082"
117 node2 <- liftIO $ mkNode "8082"
@@ -119,7 +119,7 @@ testRemoteLiveProcessInfo node1 = do
119 self <- getSelfPid
119 self <- getSelfPid
120 liftIO $ putMVar locMV self
120 liftIO $ putMVar locMV self
121 _ <- receiveWait [
121 _ <- receiveWait [
122− match (\(pid, "ping") -> send pid "pong")
122+ match (\(pid, "ping") -> send pid "pong")
123 ]
123 ]
124 "stop" <- expect
124 "stop" <- expect
125 return ()
125 return ()