anchor.diff:          }
   
   /// Writes to the body of the HTTP response and sets the HTTP header Content-Length accordingly.
  -let setBody (bytes : byte array) =
  +let setBody (bytes : byte array) : HttpHandler =
       fun (ctx : HttpContext) ->
           async {
               ctx.Response.Headers.["Content-Length"] <- StringValues(bytes.Length.ToString())
  
positive.code: 
  /// Uses the Giraffe.XmlViewEngine to compile and render a HTML Document from
  /// an given XmlNode. The HTTP response is of Content-Type text/html.
  let renderHtml (document : XmlNode) =
      setHttpHeader "Content-Type" "text/html"
      >=> (document
          |> renderHtmlDocument
  
negative.code:         |> async.Return
  
  /// Filters an incoming HTTP request based on the beginning of the request path (case insensitive).
  let routeStartsWithCi (subPath : string) : HttpHandler =
      fun (ctx : HttpContext) ->
          if (getPath ctx).StartsWith(subPath, StringComparison.CurrentCultureIgnoreCase)
          then Some ctx
  