anchor.diff:          c.userState |> Map.tryFind "userName" |> Option.map (fun x -> x.ToString())
   
   
  +[<AutoOpen>]
   module FileIO =
       open System.IO
       let move src dest =
  
positive.code:             >=> OK (file (path + "." + fileEnding))
          )
  
      let part =
          choose [
              pathScan "/content/%s.%s" readContent
          ]
  
  let app =
      let expenseReportService = createExpenseReportService()
      choose [
          Content.part
          Web.part expenseReportService
          basicAuth <|
              Api.part expenseReportService
      ]
  
negative.code:         let resultString = JsonConvert.SerializeObject(result)
          OK resultString
  
  [<AutoOpen>]
  module Content =
      type ContentType =
          | JS
  