anchor.diff:      choose [
           Content.part
           Web.part expenseService
  -        Api.part expenseService
  +        basicAuth <|
  +            Api.part expenseService
       ]
  
positive.code:     let fromJson<'T> (request:HttpRequest) =
          let json = System.Text.Encoding.UTF8.GetString(request.rawForm)
          JsonConvert.DeserializeObject<'T>(json)
  
  module FileIO =
      open System.IO
  
negative.code:     let part expenseService =
          Writers.setMimeType "text/html" >=>
              choose [
                  path "/" >=> (OK (Index()))
                  path "/logout" >=> context(fun c -> RequestErrors.UNAUTHORIZED "LoggedOut")
                  basicAuth <|
                      expense expenseService
              ]
  
  module Content =
  