extensible-effects-concurrent 0.26.0 → 0.26.1
raw patch · 4 files changed
+11/−6 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- ChangeLog.md +5/−0
- extensible-effects-concurrent.cabal +1/−1
- src/Control/Eff/Concurrent/Protocol/StatefulServer.hs +2/−2
- src/Control/Eff/Concurrent/Protocol/Supervisor.hs +3/−3
ChangeLog.md view
@@ -1,5 +1,10 @@ # Changelog for extensible-effects-concurrent ++## 0.26.1+- Documentation fixes+- `Supervisor`: Don't start a new process when a process for a child-id exists + ## 0.26.0 - Introduce `ReplyTarget` - Change the `sendReply` signature to accept a `ReplyTarget`
extensible-effects-concurrent.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.0 name: extensible-effects-concurrent-version: 0.26.0+version: 0.26.1 description: Please see the README on GitHub at <https://github.com/sheyll/extensible-effects-concurrent#readme> synopsis: Message passing concurrency as extensible-effect homepage: https://github.com/sheyll/extensible-effects-concurrent#readme
src/Control/Eff/Concurrent/Protocol/StatefulServer.hs view
@@ -38,9 +38,9 @@ -- | A type class for server loops. ----- This type class serves as interface for other abstractions, for example /process supervision/+-- This class serves as interface for other mechanisms, for example /process supervision/ ----- The methods of this class handle 'Event's 'Request's for 'Pdu' instance.+-- The methods of this class handle 'Event's and 'Request's for 'Pdu' instances. -- -- Instances can by /index types/ for 'Pdu' family directly, or indirectly via the 'ServerPdu' type family. --
src/Control/Eff/Concurrent/Protocol/Supervisor.hs view
@@ -188,12 +188,12 @@ sendReply rt True StartC i -> do- childEp <- raise (raise (Server.start (supConfigStartFun supConfig i)))- let childPid = _fromEndpoint childEp- cMon <- monitor childPid mExisting <- lookupChildById @(ChildId p) @p i case mExisting of Nothing -> do+ childEp <- raise (raise (Server.start (supConfigStartFun supConfig i)))+ let childPid = _fromEndpoint childEp+ cMon <- monitor childPid putChild i (MkChild @p childEp cMon) sendReply rt (Right childEp) Just existingChild ->