marcosh/crem
1
1
Fork 0
mirror of https://github.com/marcosh/crem.git synced 2024-08-16 16:00:37 +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

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

@ -35,7 +35,7 @@ $( singletons
shippingTopology :: Topology ShippingVertex
shippingTopology = Topology []
|]
|]
)
deriving via AllVertices ShippingVertex instance RenderableVertices ShippingVertex
@ -55,9 +55,10 @@ paymentCompletePolicy = stateless $ \case
CartPaymentCompleted -> [StartShipping]
writeModelWithShipping' :: StateMachine (Either CartCommand ShippingCommand) [Either CartEvent ShippingEvent]
writeModelWithShipping' = Feedback
writeModelWithShipping
(rmap (fmap Right) paymentCompletePolicy ||| stateless (const []))
writeModelWithShipping' =
Feedback
writeModelWithShipping
(rmap (fmap Right) paymentCompletePolicy ||| stateless (const []))
data ShippingInfo