correct formatting

marcosh · Jul 10, 2023 · ce430c9 · ce430c9
1 parent 910f9ec
commit ce430c9
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/examples/Crem/Example/Cart/Shipping.hs b/examples/Crem/Example/Cart/Shipping.hs
@@ -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