fulfillPromise :: PubFP e a -> a -> STM ()
fulfillPromise (PubFP o) a = o (Right a)
fulfillPromise :: PubFP e a -> a -> STM ()
fulfillPromise (PubFP o) a = o (Right a)
fulfillPromise (PubFP o) a = o (Right a)