62eb0b1 · distributed-process

git.iko.soy/distributed-process

Added a NOOP closeTransport to the MVar transport. It passes all demos too

commit62eb0b173b91dc85095159d9b1bd96e31433383e authorRyan Newton <rrnewton@gmail.com> dateMon 20 Feb 2012, 09:57 (15 years ago) parent0c0f406

2 files changed+4−3

unifiedsplit

examples/DemoTransport.hs+3−3

@@ -136,10 +136,10 @@ logServer name targetEnd = forever $ do

136136runWAllTranports :: (IO Transport -> IO ()) -> Int -> IO ()

137137runWAllTranports demo offset = do

138138 putStrLn "------------------------------------------------------------"

139−-- putStrLn " MVAR transport:"

140−-- demo Network.Transport.MVar.mkTransport

141− putStrLn "\n TCP transport:"

139+ putStrLn " MVAR transport:"

140+ demo Network.Transport.MVar.mkTransport

142141

142+ putStrLn "\n TCP transport:"

143143 cntr <- newIORef 0

144144 demo$ do cnt <- readIORef cntr

145145 writeIORef cntr (cnt+1)

network-transport/src/Network/Transport/MVar.hs+1

@@ -32,6 +32,7 @@ mkTransport = do

3232 case BS.readInt bs of

3333 Nothing -> error "dummyBackend.deserializeSourceEnd: cannot parse"

3434 Just (n,_) -> Just . mkSourceAddr channels $ n

35+ , closeTransport = return ()

3536 }

3637 where

3738 mkSourceAddr :: Chans -> Int -> SourceAddr