use launchAff_

purescript-contrib · Apr 10, 2018 · 316ffd9 · 316ffd9
1 parent 91fb63f
commit 316ffd9
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Control/Monad/Aff/Bus.purs b/src/Control/Monad/Aff/Bus.purs
@@ -31,8 +31,7 @@ module Control.Monad.Aff.Bus
 
 import Prelude
 
-import Control.Lazy (fix)
-import Control.Monad.Aff (Aff, attempt, runAff_)
+import Control.Monad.Aff (Aff, attempt, launchAff_)
 import Control.Monad.Aff.AVar (AVAR, AVar, killVar, makeEmptyVar, putVar, takeVar)
 import Control.Monad.Eff.AVar as EffAvar
 import Control.Monad.Eff.Class (class MonadEff, liftEff)
@@ -67,7 +66,7 @@ make = liftEff do
       putVar mempty consumers
       sequence_ (foldl (\xs a → putVar res a : xs) mempty vars)
       loop
-  runAff_ (const $ pure unit) loop
+  launchAff_ loop
 
   pure $ Bus cell consumers