anchor.diff:      |> propertyInfo.GetValue
       |> unbox
     
  -  match find request.url.AbsoluteUri with
  +  match request |> urlWithHost |> find with
     | Some todo ->
       store.Remove todo |> ignore
       let getPatchedProperty expr = getPatchedProperty expr patchedTodo todo
  
positive.code:   |> serialize
    |> OK
  
  let getTodo id =
    match find id with
    | Some todo -> serialize todo |> OK
  
negative.code:     patched
      |> serialize
      |> OK
    | None -> request |> urlWithHost |> NOT_FOUND
  
  let post request = 
    let todo = 
  