anchor.diff:  module hucache.http.caches.postgres
  -
   
   open Npgsql;
   open hucache.http.types
  
positive.code:                    WHERE owner = @owner
                     AND repo = @repo
                     AND issue = @issue", p)
      |> Seq.tryPick (fun r ->
              let h = deserialize r.Headers
              let p = r.Payload
              Some {headers=h; payload=p}
              )
  
  let loadIssues (key:RepoKey) : FullPayload list =
      use conn = new Npgsql.NpgsqlConnection(connectionString)
  
negative.code:     member val Headers = headers with get, set
      member val Payload = payload with get, set
  
  let hydrate (row:R) =
      let h = deserialize row.Headers
      let p = row.Payload
      {headers=h; payload=p}
      
  let loadIssue (key:IssueKey) : FullPayload option = 
      use conn = new Npgsql.NpgsqlConnection(connectionString)
  
  