@@ -64,11 +64,10 @@ module Control.Distributed.Process
6464 , monitorPort
6565 , unmonitor
6666 , withMonitor
67− , MonitorRef
67+ , MonitorRef -- opaque
6868 , ProcessLinkException(..)
6969 , NodeLinkException(..)
7070 , PortLinkException(..)
71− , MonitorRef -- opaque
7271 , ProcessMonitorNotification(..)
7372 , NodeMonitorNotification(..)
7473 , PortMonitorNotification(..)
@@ -400,7 +399,7 @@ spawnChannel :: forall a. Typeable a => Static (SerializableDict a)
400399 -> Process (SendPort a)
401400spawnChannel dict nid proc = do
402401 us <- getSelfPid
403− spawn nid (go us)
402+ _ <- spawn nid (go us)
404403 expect
405404 where
406405 go :: ProcessId -> Closure (Process ())