transient-universe 0.4.4 → 0.4.4.1

raw patch · 2 files changed

+5/−5 lines, 2 filesdep ~transient

Dependency ranges changed: transient

Files

• src/Transient/Move/Internals.hs +3/−3
• transient-universe.cabal +2/−2

@@ -310,7 +310,7 @@ 
 
    case  M.lookup id mapth of
-          Just tv -> killBranch'  tv      -- !> "JUSTTTTTTTTT"
+          Just tv -> liftIO $ killBranch'  tv      -- !> "JUSTTTTTTTTT"
           Nothing ->  return ()           -- !> "NOTHING"
 
 
@@ -345,7 +345,7 @@ 
    moldconn <- getData :: StateIO (Maybe Connection)
    mclosure <- getData :: StateIO (Maybe Closure)
-   labelState $ "wormhole" ++ show node
+   -- labelState $ "wormhole" ++ show node
    logdata@(Log rec log fulLog) <- getData `onNothing` return (Log False [][])
 
 
@@ -413,7 +413,7 @@   local $ Transient $ do
 
      cont <- get
-     labelState "teleport"
+     -- labelState "teleport"
      -- send log with closure at head
      Log rec log fulLog <- getData `onNothing` return (Log False [][])
      if not rec   -- !> ("teleport rec,loc fulLog=",rec,log,fulLog)

@@ -1,5 +1,5 @@ name: transient-universe
-version: 0.4.4
+version: 0.4.4.1
 cabal-version: >=1.10
 build-type: Simple
 license: MIT
@@ -70,7 +70,7 @@     if !impl(ghcjs >=0.1)
         build-depends:
             transformers -any,
-            transient >=0.4.4,
+            transient >=0.5.4,
             transient-universe -any
         hs-source-dirs: app/server/Transient/Move/Services
     else