ea9c6b7 · distributed-process

git.iko.soy/distributed-process

on master help sign in

silence those pesky compiler warnings

ea9c6b7Tim Watson14 years ago

distributed-process/src/Control/Distributed/Process.hs+2−3

compare with master

unifiedsplit

@@ -64,11 +64,10 @@ module Control.Distributed.Process

64 , monitorPort

65 , unmonitor

66 , withMonitor

67− , MonitorRef

67+ , MonitorRef -- opaque

68 , ProcessLinkException(..)

69 , NodeLinkException(..)

70 , PortLinkException(..)

71− , MonitorRef -- opaque

72 , ProcessMonitorNotification(..)

71 , ProcessMonitorNotification(..)

73 , NodeMonitorNotification(..)

72 , NodeMonitorNotification(..)

74 , PortMonitorNotification(..)

73 , PortMonitorNotification(..)

@@ -400,7 +399,7 @@ spawnChannel :: forall a. Typeable a => Static (SerializableDict a)

400 -> Process (SendPort a)

399 -> Process (SendPort a)

401spawnChannel dict nid proc = do

400spawnChannel dict nid proc = do

402 us <- getSelfPid

401 us <- getSelfPid

403− spawn nid (go us)

402+ _ <- spawn nid (go us)

404 expect

403 expect

405 where

404 where

406 go :: ProcessId -> Closure (Process ())

405 go :: ProcessId -> Closure (Process ())

distributed-process/tests/TestCH.hs−1

@@ -31,7 +31,6 @@ import Control.Distributed.Process

31import Control.Distributed.Process.Internal.Types

32 ( NodeId(nodeAddress)

33 , LocalNode(localEndPoint)

34− , RegisterReply(..)

35 )

34 )

36import Control.Distributed.Process.Node

35import Control.Distributed.Process.Node

37import Control.Distributed.Process.Serializable (Serializable)

36import Control.Distributed.Process.Serializable (Serializable)