Ordering

src/Services/Order/Order.Domain/Aggregates.fs

@@ -1,6 +1,7 @@
 namespace Order.Domain.Aggregates
 open Order.Domain.Values
+open Order.Domain.Entities
 
-type OrderAggregate = { Id: OrderId } with
+type Order = { Id: OrderId; } with
   static member Create(id: OrderId) =
     { Id = id }

src/Services/Order/Order.Domain/Entities.fs

@@ -0,0 +1,6 @@
+namespace Order.Domain.Entities
+open Order.Domain.Values
+
+type Customer = { Id: CustomerId }
+
+type Item = { Id: ItemId; Name: string; UnitPrice: decimal; Discount: decimal option; Units: int }

src/Services/Order/Order.Domain/Order.Domain.fsproj

@@ -5,7 +5,8 @@
   </PropertyGroup>
   <ItemGroup>
     <Compile Include="Values.fs" />
+    <Compile Include="Entities.fs" />
     <Compile Include="Aggregates.fs" />
   </ItemGroup>
   <Import Project="..\..\..\..\.paket\Paket.Restore.targets" />
-</Project>
+</Project>

src/Services/Order/Order.Domain/Values.fs

@@ -2,3 +2,5 @@ namespace Order.Domain.Values
 open System
 
 type OrderId = Guid
+type CustomerId = string
+type ItemId = string

src/Services/Order/Order.UnitTests/Aggregate.Tests.fs

@@ -10,7 +10,7 @@ let testOrder =
     testList "Create" [
       test "Create" {
         let id = Guid.NewGuid()
-        let subject = OrderAggregate.Create(id)
+        let subject = Order.Create(id)
         Expect.equal subject { Id = id } "OrderAggregate should eq"
       }
     ]