@@ -3,7 +3,7 @@
33module Control.Distributed.Process.Internal.Closure.TH
44 ( -- * User-level API
55 remotable
6− , remotableDec
6+ , remotableDecl
77 , mkStatic
88 , functionSDict
99 , functionTDict
@@ -84,28 +84,28 @@ remotable ns = do
8484-- >
8585-- > remotable ['f]
8686--
87−-- with 'remotableDec' you would instead do
87+-- with 'remotableDecl' you would instead do
8888--
89−-- > remotableDec [
89+-- > remotableDecl [
9090-- > [d| f :: T1 -> T2 ;
9191-- > f = ...
9292-- > |]
9393-- > ]
9494--
95−-- 'remotableDec' creates the function specified as well as the various
95+-- 'remotableDecl' creates the function specified as well as the various
9696-- dictionaries and static versions that 'remotable' also creates.
97−-- 'remotableDec' is sometimes necessary when you want to refer to, say,
97+-- 'remotableDecl' is sometimes necessary when you want to refer to, say,
9898-- @$(mkClosure 'f)@ within the definition of @f@ itself.
9999--
100−-- NOTE: 'remotableDec' creates @__remoteTableDec@ instead of @__remoteTable@
101−-- so that you can use both 'remotable' and 'remotableDec' within the same
100+-- NOTE: 'remotableDecl' creates @__remoteTableDecl@ instead of @__remoteTable@
101+-- so that you can use both 'remotable' and 'remotableDecl' within the same
102102-- module.
103−remotableDec :: [Q [Dec]] -> Q [Dec]
104−remotableDec qDecs = do
103+remotableDecl :: [Q [Dec]] -> Q [Dec]
104+remotableDecl qDecs = do
105105 decs <- concat <$> sequence qDecs
106106 let types = catMaybes (map typeOf decs)
107107 (closures, inserts) <- unzip <$> mapM generateDefs types
108− rtable <- createMetaData (mkName "__remoteTableDec") (concat inserts)
108+ rtable <- createMetaData (mkName "__remoteTableDecl") (concat inserts)
109109 return $ decs ++ concat closures ++ rtable
110110 where
111111 typeOf :: Dec -> Maybe (Name, Type)