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

correct formatting

Browse Source
This commit is contained in:
Marco Perone 2023-07-10 16:29:44 +02:00
parent 910f9ec26b
commit ce430c9008
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/Crem/Example/Cart/Shipping.hs
View File

@ -55,7 +55,8 @@ paymentCompletePolicy = stateless $ \case
CartPaymentCompleted -> [StartShipping]
writeModelWithShipping' :: StateMachine (Either CartCommand ShippingCommand) [Either CartEvent ShippingEvent]
writeModelWithShipping' = Feedback
writeModelWithShipping' =
Feedback
writeModelWithShipping
(rmap (fmap Right) paymentCompletePolicy ||| stateless (const []))