docs(course): remove connect from network interface

doc/advanced-testing-mini-course/README.md

@@ -16,20 +16,20 @@
 
 ```haskell
 data Network = Network
-  { deploy  :: Addr -> IO Server -- bind and listen
-  , connect :: Addr -> IO Client
-  , send    :: [(Client, Msg)] -> IO ()
-  , select  :: [Server] -> IO (Addr, Msg, Time) -- accept and recv
+  { deploy  :: Addr -> IO Socket -- bind and listen
+  , send    :: [(Addr, Msg)] -> IO ()
+  , select  :: [Socket] -> IO (Addr, Msg, Time) -- accept and recv
   }
 
 eventLoop :: Network -> [(Addr, StateMachine)] -> IO ()
 eventLoop nw nodes = do
-  servers <- mapM (deploy nw) (map fst nodes)
+  socks <- mapM (deploy nw) (map fst nodes)
+  connectAllNodesToEachOther nw nodes
   let env = nodes `zip` initialStates
   go env
     where
       go env = do
-        (receiver, msg, time) <- select servers
+        (receiver, msg, time) <- select socks
         (outgoing, env') <- step env receiver msg time
         send nw outgoing
         go env'