@@ -165,12 +165,10 @@ mkTCPOff off = do
165runWAllTranports :: (IO Transport -> IO ()) -> Int -> IO ()
165runWAllTranports :: (IO Transport -> IO ()) -> Int -> IO ()
166runWAllTranports demo offset = do
166runWAllTranports demo offset = do
167 putStrLn "------------------------------------------------------------"
167 putStrLn "------------------------------------------------------------"
169 putStrLn " MVAR transport:"
168 putStrLn " MVAR transport:"
170 mvar >>= demo
169 mvar >>= demo
171 putStrLn "\n TCP transport:"
170 putStrLn "\n TCP transport:"
172 tcp >>= demo
171 tcp >>= demo
174 putStrLn "\n PIPES transport:"
172 putStrLn "\n PIPES transport:"
175 pipes >>= demo
173 pipes >>= demo
176 putStrLn "\n"
174 putStrLn "\n"