transient-universe 0.3.2.2 → 0.3.2.3

raw patch · 3 files changed

+6/−20 lines, 3 files

Files

• src/Transient/Move.hs +5/−4
• src/Transient/Move/Services.hs +0/−15
• transient-universe.cabal +1/−1

@@ -381,10 +381,11 @@ 
 
 getWebServerNode :: TransIO Node
-getWebServerNode = liftIO $
+getWebServerNode = liftIO $ do
 
-   createNode   <$> (fromJSValUnchecked js_hostname)
-                <*> (fromIntegral <$> (fromJSValUnchecked js_port :: IO Int))
+   h <- fromJSValUnchecked js_hostname
+   p <- fromIntegral <$> (fromJSValUnchecked js_port :: IO Int)
+   createNode h p
 
 
 
@@ -926,7 +927,7 @@ listen node = onAll $ do
         addNodes [node]
         events <- liftIO $ newIORef M.empty
-        let conn=  (defConnection 8192){myNode=node,comEvent=events}
+        conn <-  defConnection >>= \c -> return c{myNode=node,comEvent=events}
         setData conn
         r <- listenResponses
         execLog r

@@ -35,21 +35,6 @@ import Data.Monoid
 --import Data.TCache hiding(onNothing)
 
--- for the example
-import System.Environment
-
---startServices :: Cloud ()
---startServices= local $ do
---  node <-  getMyNode
---  liftIO $ print node
---  let servs =   nodeServices node
---  mapM_ start  servs
---  where
---  start (package,program)= liftIO $ do
---          let prog= pathExe (name package) program port
---          liftIO $ print prog
---          createProcess $ shell prog
-
 
 pathExe package program port= {-"./"++package++"/dist/build/"++package++"/"++  -} program
                                        ++ " -p start/" ++ show port

@@ -1,5 +1,5 @@ name: transient-universe
-version: 0.3.2.2
+version: 0.3.2.3
 cabal-version: >=1.10
 build-type: Simple
 license: MIT