@@ -6,6 +6,7 @@ the number of times to send a message around the ring
6import Control.Monad
6import Control.Monad
7import Control.Distributed.Process hiding (catch)
7import Control.Distributed.Process hiding (catch)
8import Control.Distributed.Process.Node
8import Control.Distributed.Process.Node
9+import Control.Exception (SomeException, catch)
9import Network.Transport.TCP (createTransport, defaultTCPParameters)
10import Network.Transport.TCP (createTransport, defaultTCPParameters)
10import System.Environment
11import System.Environment
11import System.Console.GetOpt
12import System.Console.GetOpt
@@ -100,5 +101,5 @@ main = do
100 Right transport <- createTransport "127.0.0.1" "8090" defaultTCPParameters
101 Right transport <- createTransport "127.0.0.1" "8090" defaultTCPParameters
101 node <- newLocalNode transport initRemoteTable
102 node <- newLocalNode transport initRemoteTable
102 catch (runProcess node $ initialProcess opt)
103 catch (runProcess node $ initialProcess opt)
103− (\e -> putStrLn $ "ERROR: " ++ (show e))
104+ (\(e :: SomeException) -> putStrLn $ "ERROR: " ++ (show e))