gistfile1.txt

ObjectFactory.Initialize(fun x -> x.AddRegistry (new SearchRegistry()))

let write<'T> item =
    async {
        ObjectFactory.GetAllInstances<Indexer<'T>>()
            |> Seq.iter (fun idxr -> idxr.Index item)
    }

let itemsToIndex<'T when 'T:null and 'T:not struct and 'T:equality> =
    let p = QueueProvider<'T>.Create()
    seq {
        while true do
            let obj = p.Dequeue()
            if not (obj = null) then yield obj
    }

try
    Seq.concat [
        (itemsToIndex<Recipe> |> Seq.map write)
        (itemsToIndex<Malt> |> Seq.map write)
        (itemsToIndex<Hop> |> Seq.map write)
        (itemsToIndex<Addition> |> Seq.map write)
        (itemsToIndex<Yeast> |> Seq.map write)
    ]
    |> Async.Parallel
    |> Async.RunSynchronously
    |> ignore

finally
    SearchRegistry.DeRegister()