e2a09fb · distributed-process

distributed-process/distributed-process.cabal+1−1

compare with master

unifiedsplit

@@ -56,7 +56,7 @@ Library

56 Control.Distributed.Process.Internal.Types,

57 Control.Distributed.Process.Internal.Closure.Static,

58 Control.Distributed.Process.Internal.Closure.MkClosure,

59− Control.Distributed.Process.Internal.Closure.Derived,

59+ Control.Distributed.Process.Internal.Closure.CP,

60 Control.Distributed.Process.Internal.Closure.TH,

61 Control.Distributed.Process.Internal.Closure.Resolution,

62 Control.Distributed.Process.Internal.Node

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

@@ -117,7 +117,7 @@ import Control.Distributed.Process.Internal.Types

117 , SendPortId(..)

118 , WhereIsReply(..)

119 )

120−import Control.Distributed.Process.Internal.Closure.Derived

120+import Control.Distributed.Process.Internal.Closure.CP

121 ( cpSeq

122 , cpBind

123 , cpSend

distributed-process/src/Control/Distributed/Process/Closure.hs+1−1

@@ -148,7 +148,7 @@ import Control.Distributed.Process.Internal.Closure.Static

148 , sdictProcessId__static

149 )

150import Control.Distributed.Process.Internal.Closure.MkClosure (mkClosure)

151−import Control.Distributed.Process.Internal.Closure.Derived

151+import Control.Distributed.Process.Internal.Closure.CP

152 ( -- Closure versions of CH primitives

153 cpLink

154 , cpUnlink

distributed-process/src/Control/Distributed/Process/Internal/Closure/Derived.hs → distributed-process/src/Control/Distributed/Process/Internal/Closure/CP.hsrenamed+2−2

@@ -1,6 +1,6 @@

1−-- | Derived (TH generated) closures

1+-- | Combinator for process closures

2{-# LANGUAGE MagicHash #-}

3−module Control.Distributed.Process.Internal.Closure.Derived

3+module Control.Distributed.Process.Internal.Closure.CP

4 ( -- * Closure versions of CH primitives

5 cpLink

6 , cpUnlink

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

@@ -122,7 +122,7 @@ import Control.Distributed.Process.Internal.Closure.Resolution (resolveClosure)

122import Control.Distributed.Process.Internal.Node (runLocalProcess)

123import Control.Distributed.Process.Internal.Primitives (expect, register)

124import qualified Control.Distributed.Process.Internal.Closure.Static as Static (__remoteTable)

125−import qualified Control.Distributed.Process.Internal.Closure.Derived as Derived (__remoteTable)

125+import qualified Control.Distributed.Process.Internal.Closure.CP as CP (__remoteTable)

126

127--------------------------------------------------------------------------------

128-- Initialization --

@@ -130,7 +130,7 @@ import qualified Control.Distributed.Process.Internal.Closure.Derived as Derived

130

131initRemoteTable :: RemoteTable

132initRemoteTable = Static.__remoteTable

133− . Derived.__remoteTable

133+ . CP.__remoteTable

134 $ RemoteTable Map.empty

135

136-- | Initialize a new local node.