d38eb3a · distributed-process

git.iko.soy/distributed-process

on master help sign in

Add static serialiation dictionary for 'Static', for completeness.

d38eb3aMathieu Boespflug12 years ago

src/Control/Distributed/Process/Closure.hs+2

compare with master

unifiedsplit

@@ -163,6 +163,7 @@ module Control.Distributed.Process.Closure

163 , sdictUnit

164 , sdictProcessId

165 , sdictSendPort

166+ , sdictStatic

166 , sdictClosure

167 , sdictClosure

167 -- * The CP type and associated combinators

168 -- * The CP type and associated combinators

168 , CP

169 , CP

@@ -204,6 +205,7 @@ import Control.Distributed.Process.Internal.Closure.BuiltIn

204 , sdictUnit

205 , sdictUnit

205 , sdictProcessId

206 , sdictProcessId

206 , sdictSendPort

207 , sdictSendPort

208+ , sdictStatic

207 , sdictClosure

209 , sdictClosure

208 -- The CP type and associated combinators

210 -- The CP type and associated combinators

209 , CP

211 , CP

src/Control/Distributed/Process/Internal/Closure/BuiltIn.hs+5

@@ -8,6 +8,7 @@ module Control.Distributed.Process.Internal.Closure.BuiltIn

8 , sdictUnit

9 , sdictProcessId

10 , sdictSendPort

11+ , sdictStatic

11 , sdictClosure

12 , sdictClosure

12 -- * Some static values

13 -- * Some static values

13 , sndStatic

14 , sndStatic

@@ -146,6 +147,10 @@ sdictSendPort :: Typeable a

146 => Static (SerializableDict a) -> Static (SerializableDict (SendPort a))

147 => Static (SerializableDict a) -> Static (SerializableDict (SendPort a))

147sdictSendPort = staticApply (staticLabel "$sdictSendPort_")

148sdictSendPort = staticApply (staticLabel "$sdictSendPort_")

148

149

150+-- | Serialization dictionary for 'Static'.

151+sdictStatic :: Typeable a => Static (SerializableDict (Static a))

152+sdictStatic = staticLabel "$sdictStatic"

153+

149-- | Serialization dictionary for 'Closure'.

154-- | Serialization dictionary for 'Closure'.

150sdictClosure :: Typeable a => Static (SerializableDict (Closure a))

155sdictClosure :: Typeable a => Static (SerializableDict (Closure a))

151sdictClosure = staticLabel "$sdictClosure"

156sdictClosure = staticLabel "$sdictClosure"