yogsototh/transient-universe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix the doc for running the monad

Browse source
This commit is contained in:
Harendra Kumar 2017-05-14 10:22:54 +05:30
parent 24a00cab81
commit 4c005a74f9
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Transient/Move/Internals.hs
View file

@ -123,8 +123,9 @@ instance Ord Node where
newtype Cloud a= Cloud {runCloud' ::TransIO a} deriving (Functor,Applicative,Monoid,Alternative, Monad, Num, MonadState EventF)
-- | Execute a distributed computation inside a TransIO computation.
-- All the computations in the TransIO monad that enclose the cloud computation must be `logged`
-- | Execute a distributed computation in the 'TransIO' monad.
-- Note that all the computations inside the 'TransIO' monad that enclose the
-- cloud computation must be `logged`.
runCloud x= do
closRemote <- getSData <|> return (Closure 0)
runCloud' x <*** setData closRemote
@ -178,11 +179,12 @@ local = Cloud . logged
--stream= Cloud . transport
-- #ifndef ghcjs_HOST_OS
-- | run the cloud computation.
-- | Run a distributed computation inside the IO monad. Enables asynchronous
-- console input (see 'keep').
runCloudIO :: Typeable a => Cloud a -> IO (Maybe a)
runCloudIO (Cloud mx)= keep mx
-- | run the cloud computation with no console input
-- | Run a distributed computation inside the IO monad with no console input.
runCloudIO' :: Typeable a => Cloud a -> IO (Maybe a)
runCloudIO' (Cloud mx)= keep' mx