gistfile1.fs

let getUser =
    <@ fun userId ->
        query { for u in db.User do
                where (u.Id = userId)
                select u } @>

let q =
    query { for t in db.Topic do
            for user in (%getUser) t.CreatedBy do
            select user }