git.iko.soy/distributed-process
on master help sign in
Placate hlint and remove reconnectNode
commit96fb8c3268e86b7fa76561705a49130defb8aa6a authorEdsko de Vries <edsko@edsko.net> dateThu 23 Aug 2012, 10:46 (14 years ago) parent3e1bc87
2 files changed+3−11
distributed-process/src/Control/Distributed/Process.hs+3−5 distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs−6
distributed-process/src/Control/Distributed/Process.hs+3−5
@@ -101,7 +101,6 @@ module Control.Distributed.Process
101101 , spawnChannelLocal
102102 -- * Reconnecting
103103 , reconnect
104− , reconnectNode
105104 , reconnectPort
106105 ) where
107106
@@ -118,6 +117,8 @@ import Control.Distributed.Static
118117 , closure
119118 , Static
120119 , RemoteTable
120+ , closureCompose
121+ , staticClosure
121122 )
122123import Control.Distributed.Process.Internal.Types
123124 ( NodeId(..)
@@ -139,7 +140,7 @@ import Control.Distributed.Process.Internal.Types
139140 , WhereIsReply(..)
140141 , LocalProcess(processNode)
141142 )
142−import Control.Distributed.Process.Serializable (SerializableDict)
143+import Control.Distributed.Process.Serializable (Serializable, SerializableDict)
143144import Control.Distributed.Process.Internal.Closure.BuiltIn
144145 ( sdictUnit
145146 , sdictSendPort
@@ -154,7 +155,6 @@ import Control.Distributed.Process.Internal.Closure.BuiltIn
154155 , cpSend
155156 , cpNewChan
156157 )
157−import Control.Distributed.Static (closureCompose, staticClosure)
158158import Control.Distributed.Process.Internal.Primitives
159159 ( -- Basic messaging
160160 send
@@ -214,10 +214,8 @@ import Control.Distributed.Process.Internal.Primitives
214214 , spawnAsync
215215 -- Reconnecting
216216 , reconnect
217− , reconnectNode
218217 , reconnectPort
219218 )
220−import Control.Distributed.Process.Serializable (Serializable)
221219import Control.Distributed.Process.Node (forkProcess)
222220
223221-- INTERNAL NOTES
distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs−6
@@ -61,7 +61,6 @@ module Control.Distributed.Process.Internal.Primitives
6161 , monitorPort
6262 -- * Reconnecting
6363 , reconnect
64− , reconnectNode
6564 , reconnectPort
6665 ) where
6766
@@ -538,11 +537,6 @@ reconnect :: ProcessId -> Process ()
538537reconnect =
539538 sendCtrlMsg Nothing . Reconnect . ProcessIdentifier
540539
541−-- | Reconnect to a node. See 'reconnect' for more information.
542−reconnectNode :: NodeId -> Process ()
543−reconnectNode =
544− sendCtrlMsg Nothing . Reconnect . NodeIdentifier
545−
546540-- | Reconnect to a sendport. See 'reconnect' for more information.
547541reconnectPort :: SendPort a -> Process ()
548542reconnectPort =