polysemy-process 0.8.0.0 → 0.8.0.1
raw patch · 2 files changed
+4/−5 lines, 2 files
Files
lib/Polysemy/Process/Interpreter/Process.hs view
@@ -13,7 +13,7 @@ import Polysemy.Conc.Effect.Scoped (Scoped) import Polysemy.Conc.Interpreter.Queue.TBM (interpretQueueTBMWith, withTBMQueue) import Polysemy.Conc.Interpreter.Scoped (interpretScopedResumableWith_)-import Polysemy.Resume (Stop, resumeOr, stop, type (!!), resuming)+import Polysemy.Resume (Stop, resumeOr, resume_, stop, type (!!)) import Prelude hiding (fromException) import Polysemy.Process.Data.ProcessError (ProcessError (Terminated))@@ -148,7 +148,7 @@ KillImmediately -> SystemProcess.term KillNever ->- void (dbgs =<< SystemProcess.wait)+ void SystemProcess.wait withKill :: ∀ err r a .@@ -157,9 +157,8 @@ Sem r a -> Sem r a withKill kill ma =- ma <* resuming @err @SystemProcess (\ _ -> dbg "resume") do+ finally ma $ resume_ @err @SystemProcess do void SystemProcess.pid- dbg "killing" handleKill kill type ScopeEffects o e err =
polysemy-process.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: polysemy-process-version: 0.8.0.0+version: 0.8.0.1 synopsis: Polysemy Effects for System Processes description: See <https://hackage.haskell.org/package/polysemy-process/docs/Polysemy-Process.html> category: Concurrency