add fiberCanceler (#165)

purescript-contrib · Dec 14, 2018 · 202a3ea · 202a3ea
1 parent f927c62
commit 202a3ea
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Effect/Aff.purs b/src/Effect/Aff.purs
@@ -27,6 +27,7 @@ module Effect.Aff
   , generalBracket
   , nonCanceler
   , effectCanceler
+  , fiberCanceler
   , module Exports
   ) where
 
@@ -206,6 +207,10 @@ nonCanceler = Canceler (const (pure unit))
 effectCanceler ∷ Effect Unit → Canceler
 effectCanceler = Canceler <<< const <<< liftEffect
 
+-- | A canceler from a Fiber.
+fiberCanceler ∷ ∀ a. Fiber a → Canceler
+fiberCanceler = Canceler <<< flip killFiber
+
 -- | Forks an `Aff` from an `Effect` context, returning the `Fiber`.
 launchAff ∷ ∀ a. Aff a → Effect (Fiber a)
 launchAff aff = do