d38eb3a · distributed-process

git.iko.soy/distributed-process

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

commitd38eb3afcf2c1753e52dc3a12257460f0f2e7050 authorMathieu Boespflug <m@tweag.io> dateSat 29 Nov 2014, 12:55 (12 years ago) parentc0efe96

2 files changed+7

unifiedsplit

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

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

163163 , sdictUnit

164164 , sdictProcessId

165165 , sdictSendPort

166+ , sdictStatic

166167 , sdictClosure

167168 -- * The CP type and associated combinators

168169 , CP

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

204205 , sdictUnit

205206 , sdictProcessId

206207 , sdictSendPort

208+ , sdictStatic

207209 , sdictClosure

208210 -- The CP type and associated combinators

209211 , CP

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

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

88 , sdictUnit

99 , sdictProcessId

1010 , sdictSendPort

11+ , sdictStatic

1112 , sdictClosure

1213 -- * Some static values

1314 , sndStatic

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

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

147148sdictSendPort = staticApply (staticLabel "$sdictSendPort_")

148149

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

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

152+sdictStatic = staticLabel "$sdictStatic"

153+

149154-- | Serialization dictionary for 'Closure'.

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

151156sdictClosure = staticLabel "$sdictClosure"