anchor.diff:                     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}
  -            )
  +    |> Seq.tryPick (hydrate >> Some)
   
   let loadIssues (key:RepoKey) : FullPayload list =
       use conn = new Npgsql.NpgsqlConnection(connectionString)
  
positive.code:     member val Headers = headers with get, set
      member val Payload = payload with get, set
  
  let loadIssue (key:IssueKey) : FullPayload option = 
      use conn = new Npgsql.NpgsqlConnection(connectionString)
  
  
negative.code:                    FROM github.issues
                     WHERE owner = @owner
                     AND repo = @repo", p)
      |> Seq.map hydrate 
      |> Seq.toList
      
  let storeIssue (key:IssueKey, payload:FullPayload) : FullPayload = 
    use conn = new Npgsql.NpgsqlConnection(connectionString)
  