marcosh/crem
1
1
Fork 0
mirror of https://github.com/marcosh/crem.git synced 2024-09-11 12:36:19 +03:00
Code Issues Packages Projects Releases Wiki Activity

Describe choice

Browse Source 
Co-authored-by: Alex <alexei.drake@tweag.io>
This commit is contained in:
Marco Perone 2023-01-26 12:34:16 +01:00 committed by Marco Perone
parent c97e7bf21e
commit 0f7034e625
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/CRM/StateMachine.hs
View File

@ -59,7 +59,7 @@ instance Strong StateMachine where
second' (Compose machine1 machine2) = Compose (second' machine1) (second' machine2)
-- * Choice
-- | An instance of `Choice` allows us to have parallel composition of state machines, meaning that we can pass two inputs to two state machines and get out the outputs of both
instance Choice StateMachine where
left' :: StateMachine a b -> StateMachine (Either a c) (Either b c)
left' (Basic baseMachine) = Basic $ left' baseMachine