transient-universe 0.3.2 → 0.3.2.1

raw patch · 2 files changed

+4/−5 lines, 2 files

Files

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

@@ -96,13 +96,13 @@                     if yn then do
                         port <- onAll freePort
                         install package program  port
-                        nodeService thisNode port  !> (thisNode,port)
+                        nodeService thisNode port
                       else empty
           local $ addNodes nodes
-          return $ head nodes  -- !> ("GENERATED NODE", nodes)
+          return $ head nodes   -- !> ("GENERATED NODE", nodes)
     where
     nodeService (Node h _ _ _) port= local $
-       return [Node h port (unsafePerformIO $ newMVar []) [service] ]
+       return [Node h port (unsafePerformIO $ newMVar []) [service] ]  -- !> (thisNode,port)
 
 
 
@@ -125,7 +125,6 @@ rServicesBanned =   unsafePerformIO $ newMVar []
 
 requestService ident service= local $  do
-
      friends            <- liftIO $ readMVar rfriends
      services           <- liftIO $ readMVar rservices
      identsBanned       <- liftIO $ readMVar ridentsBanned

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