Formatting consistency

jet · Mar 10, 2020 · d68c643 · d68c643
1 parent 8bb5e6c
commit d68c643
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/equinox-fc/Domain.Tests/AllocationTests.fs b/equinox-fc/Domain.Tests/AllocationTests.fs
@@ -5,6 +5,6 @@ open FsCheck.Xunit
 open Swensen.Unquote
 
 let [<Property>] ``codec can roundtrip`` event =
-    let ee = Events.codec.Encode(None,event)
+    let ee = Events.codec.Encode(None, event)
     let ie = FsCodec.Core.TimelineEvent.Create(0L, ee.EventType, ee.Data)
     test <@ Some event = Events.codec.TryDecode ie @>
diff --git a/equinox-fc/Domain/ListAllocation.fs b/equinox-fc/Domain/ListAllocation.fs
@@ -8,15 +8,15 @@ type Service(maxListLen, allocators : Allocator.Service, allocations : Allocatio
         let cutoff = let now = DateTimeOffset.UtcNow in now.Add transactionTimeout
         let! state = allocators.Commence(allocatorId, allocationId, cutoff)
         // TODO cancel timed out conflicting work
-        let! (_,state) = allocations.Sync(allocationId, Seq.empty, Allocation.Commence tickets)
+        let! _, state = allocations.Sync(allocationId, Seq.empty, Allocation.Commence tickets)
         return state }
 
     member __.Read(allocationId) : Async<_> = async {
-        let! (_,state) = allocations.Sync(allocationId, Seq.empty, Allocation.Command.Apply ([],[]))
+        let! _, state = allocations.Sync(allocationId, Seq.empty, Allocation.Command.Apply ([], []))
         // TODO incorporate allocator state
         return state }
 
-    member __.Cancel(allocatorId,allocationId) : Async<_> = async {
-        let! (_,state) = allocations.Sync(allocationId, Seq.empty, Allocation.Command.Cancel)
+    member __.Cancel(allocatorId, allocationId) : Async<_> = async {
+        let! _, state = allocations.Sync(allocationId, Seq.empty, Allocation.Command.Cancel)
         // TODO propagate to allocator with reason
         return state }