anchor.diff:  
   module ServerResource =
       [<CompiledName("Create")>]
  -    let create (parse:HttpRequest<Stream> -> Async<HttpRequest<Choice<'TReq,exn>>>, serialize) (resource:IResource<'TReq,'TResp>) = 
  +    let create (parse:RequestParser<'TReq>, serialize:ResponseSerializer<'TResp>) (resource:IResource<'TReq,'TResp>) = 
           let badRequestResponse = HttpResponse<Option<'TResp>>.Create(HttpStatus.clientErrorBadRequest, None) |> Async.result
   
           {new IServerResource with
               member this.Route = resource.Route
   
  -            member this.FilterRequest (req: HttpRequest<Stream>) = req.With(()) |> resource.FilterRequest |> HttpRequest.withEntity req.Entity
  +            member this.FilterRequest (req: HttpRequest<Stream>) = resource.FilterRequest req
       
  -            member this.FilterResponse (resp: HttpResponse<Stream>) = resp.With(()) |> resource.FilterResponse |> HttpResponse.withEntity resp.Entity
  +            member this.FilterResponse (resp: HttpResponse<Stream>) = resource.FilterResponse resp
   
               member this.Handle req = 
                   async {
  
positive.code: 
                      return! serialize(req.With(()), resp)
                  }
          }
negative.code: 
  open FunctionalHttp.Collections
  open FunctionalHttp.Core
  open System
  open System.IO
  
  type RequestParser<'TReq> = HttpRequest<Stream> -> Async<HttpRequest<Choice<'TReq,exn>>>
  type ResponseSerializer<'TResp> = HttpRequest<unit>*HttpResponse<Option<'TResp>> -> Async<HttpResponse<Stream>>
  
  type IServerResource =
      abstract member Route:Route with get
  