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