@@ -1,8 +1,5 @@
11{-# LANGUAGE MagicHash #-}
2−module Control.Distributed.Process.Internal.Closure
3− ( -- * Runtime support
4− resolveClosure
5− ) where
2+module Control.Distributed.Process.Internal.Closure.Resolution (resolveClosure) where
63
74import Data.Accessor ((^.))
85import Data.ByteString.Lazy (ByteString)
@@ -29,23 +26,6 @@ import Control.Distributed.Process.Internal.Dynamic
2926 )
3027import Control.Distributed.Process.Internal.TypeRep () -- Binary instances
3128
32−{-
33−import qualified Control.Distributed.Process.Internal.Closure.BuiltIn as BuiltIn
34− (remoteTable)
35−import qualified Control.Distributed.Process.Internal.Closure.Combinators as Combinators
36− (remoteTable)
37−
38−-- | Initial (empty) remote-call meta data
39−initRemoteTable :: RemoteTable
40−initRemoteTable = BuiltIn.remoteTable
41− . Combinators.remoteTable
42− $ RemoteTable Map.empty Map.empty
43−-}
44−
45−--------------------------------------------------------------------------------
46−-- Runtime support for closures --
47−--------------------------------------------------------------------------------
48−
4929resolveClosure :: RemoteTable -> StaticLabel -> ByteString -> Maybe Dynamic
5030-- Built-in closures
5131resolveClosure rtable ClosureSend env = do
@@ -88,8 +68,6 @@ resolveClosure rtable CpApply env =
8868resolveClosure rtable (UserStatic label) env = do
8969 val <- rtable ^. remoteTableLabel label
9070 dynApply val (toDyn env)
91−
92−-- User-defined polymorphic closures
9371resolveClosure rtable (PolyStatic label) env = do
9472 Dynamic _ val <- rtable ^. remoteTableLabel label
9573 return (Dynamic (decode env) val)