Is it possible to make Tomas Petricek's following code sample generic so that a function value can be passed in to perform the populate of the record enclosed in the yield statement? In other words is it possible to make a seq yield generic?

let GetPhotos (albumID:int) = seq {

use conn = new DynamicSqlConnection(connectionString)

use cmd = conn?GetPhotos

cmd?AlbumID <- albumID

cmd?IsPublic <- true

// Run the command and read results into an F# record

conn.Open()

use reader = cmd.ExecuteReader()

while (reader.Read()) do

yield { PhotoID = reader?PhotoID

PhotoAlbumID = reader?AlbumID

PhotoCaption = reader?Caption } }

omas Petricek's excellent blog of dynamicsql connection