Skip to content

Instantly share code, notes, and snippets.

@discorick
Created November 29, 2016 16:17
Show Gist options
  • Save discorick/40bffa32d377d6f3617ad6b2e132927b to your computer and use it in GitHub Desktop.
Save discorick/40bffa32d377d6f3617ad6b2e132927b to your computer and use it in GitHub Desktop.
let loadIssuesMetadata (key:RepoKey) : string =
use conn = new Npgsql.NpgsqlConnection(connectionString)
let p = ExpandoObject()
let pp = p :> IDictionary<string, obj>
pp.Add("owner", key.owner)
pp.Add("repo", key.repo)
conn.Query<R>("WITH metadata AS (
SELECT leadtime, last_updated_on, repo, owner
FROM github.issue_metadata
)
SELECT row_to_json(metadata) as Payload
FROM metadata
WHERE owner = @owner
AND repo = @repo", p)
|> Seq.map (fun row -> row.Payload)
|> String.concat ","
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment