@@ -771,7 +771,7 @@ testMatchAnyHandle transport = do
771771 proxyServer <- forkProcess localNode $ forever $ do
772772 receiveWait [
773773 matchAny (maybeForward mathServer)
774− ]
774+ ]
775775 putMVar proxyAddr proxyServer
776776
777777 -- Client
@@ -808,13 +808,13 @@ testMatchAnyNoHandle transport = do
808808 (\(Add _ _ _) -> True)
809809 -- the match `AbstractMessage -> Process ()` will succeed!
810810 (\m -> do
811− -- `String -> Process ()` does *not* match the input types however
811+ -- `String -> Process ()` does *not* match the input types however
812812 r <- (maybeHandleMessage m (\(_ :: String) -> die "NONSENSE" ))
813813 case r of
814814 Nothing -> return ()
815815 Just _ -> die "NONSENSE")
816− ]
817− -- we *must* have removed the message from our mailbox though!!!
816+ ]
817+ -- we *must* have removed the message from our mailbox though!!!
818818 Nothing <- receiveTimeout 100000 [ match (\(Add _ _ _) -> return ()) ]
819819 liftIO $ putMVar serverDone ()
820820 putMVar addr server
@@ -835,7 +835,7 @@ testMatchAnyNoHandle transport = do
835835
836836-- | Test 'matchAnyIf'. We provide an /echo/ server, but it ignores requests
837837-- unless the text body @/= "bar"@ - this case should time out rather than
838−-- removing the message from the process mailbox.
838+-- removing the message from the process mailbox.
839839testMatchAnyIf :: NT.Transport -> Assertion
840840testMatchAnyIf transport = do
841841 echoAddr <- newEmptyMVar
@@ -848,7 +848,7 @@ testMatchAnyIf transport = do
848848 receiveWait [
849849 matchAnyIf (\(_ :: ProcessId, (s :: String)) -> s /= "bar")
850850 handleMessage
851− ]
851+ ]
852852 putMVar echoAddr echoServer
853853
854854 -- Client
@@ -1013,7 +1013,7 @@ testCatchesExit :: NT.Transport -> Assertion
10131013testCatchesExit transport = do
10141014 localNode <- newLocalNode transport initRemoteTable
10151015 done <- newEmptyMVar
1016−
1016+
10171017 _ <- forkProcess localNode $ do
10181018 (die ("foobar", 123 :: Int))
10191019 `catchesExit` [
@@ -1029,7 +1029,7 @@ testDie :: NT.Transport -> Assertion
10291029testDie transport = do
10301030 localNode <- newLocalNode transport initRemoteTable
10311031 done <- newEmptyMVar
1032−
1032+
10331033 _ <- forkProcess localNode $ do
10341034 (die ("foobar", 123 :: Int))
10351035 `catchExit` \_from reason -> do
@@ -1043,7 +1043,7 @@ testPrettyExit :: NT.Transport -> Assertion
10431043testPrettyExit transport = do
10441044 localNode <- newLocalNode transport initRemoteTable
10451045 done <- newEmptyMVar
1046−
1046+
10471047 _ <- forkProcess localNode $ do
10481048 (die "timeout")
10491049 `catch` \ex@(ProcessExitException from _) ->