anchor.diff:      let fromJson<'T> (request:HttpRequest) =
           let json = System.Text.Encoding.UTF8.GetString(request.rawForm)
           JsonConvert.DeserializeObject<'T>(json)
  +
  +[<AutoOpen>]
  +module Security =
  +    let basicAuth =
  +        Authentication.authenticateBasic (fun (x,y) -> x=y)
  +
  +    let getUserName (c:HttpContext) =
  +        c.userState |> Map.tryFind "userName" |> Option.map (fun x -> x.ToString())
  +
   
   module FileIO =
       open System.IO
  
positive.code:     choose [
          Content.part
          Web.part expenseService
          Api.part expenseService
      ]
  
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 =
  