Fix tests

Author: Christer van der Meeren

src/Felicity/Operations.fs

@@ -257,7 +257,7 @@ type GetResourceOperation<'originalCtx, 'ctx, 'entity, 'id> = internal {
                         match StrictModeHelpers.checkForUnknownQueryParameters<'originalCtx> httpCtx req Set.empty with
                         | Error errs -> return! handleErrors errs next httpCtx
                         | Ok() ->
-                            let! doc = resp.Write httpCtx ctx req (resDef, entity)
+                            let! doc, _ = resp.Write httpCtx ctx req (resDef, entity)
 
                             let! fieldTrackerHandler =
                                 httpCtx.RequestServices
@@ -1104,7 +1104,7 @@ type PatchOperation<'originalCtx, 'ctx, 'entity> = internal {
 
                                                         return! handler next httpCtx
                                                     else
-                                                        let! doc = resp.Write httpCtx ctx req (rDef, entity4)
+                                                        let! doc, _ = resp.Write httpCtx ctx req (rDef, entity4)
 
                                                         let! fieldTrackerHandler =
                                                             httpCtx.RequestServices

src/Felicity/Relationships.fs

@@ -578,7 +578,7 @@ type ToOneRelationship<'ctx, 'setCtx, 'entity, 'relatedEntity, 'relatedId> = int
                                 | Skip -> return! handleErrors [ getRelWhileSkip () ] next httpCtx
                                 | Include relatedEntity ->
                                     let b = resolveEntity relatedEntity
-                                    let! doc = resp.Write httpCtx ctx req (b.resourceDef, b.entity)
+                                    let! doc, _ = resp.Write httpCtx ctx req (b.resourceDef, b.entity)
 
                                     let! fieldTrackerHandler =
                                         match this.idParsers with

src/Felicity/Responder.fs

@@ -21,7 +21,7 @@ type Responder<'ctx> internal (builder: ResponseBuilder<'ctx>, ctx, req) =
     member _.WithEntity(resourceDef: ResourceDefinition<'ctx, 'entity, 'id>, entity: 'entity) : HttpHandler =
         fun next httpCtx ->
             task {
-                let! doc = builder.Write httpCtx ctx req (upcast resourceDef, entity)
+                let! doc, _ = builder.Write httpCtx ctx req (upcast resourceDef, entity)
 
                 let primaryResourceTypes =
                     primaryResourceTypesForFieldTracking |> Option.defaultValue [ resourceDef.name ]