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