Use just writeTVar in destroy
Make sample window configurable
Not too efficient function to update the bouquet of host pools