mirror of
https://github.com/marcosh/crem.git
synced 2024-09-11 12:36:19 +03:00
correct formatting
This commit is contained in:
parent
910f9ec26b
commit
ce430c9008
@ -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 []))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user