diff --git a/src/Quasar/Observable.hs b/src/Quasar/Observable.hs index b87fec59a91c325f68d6df3c0eb0a629fa0ec915..de9f814a1a30313199a83fe729dbb7dd083b776d 100644 --- a/src/Quasar/Observable.hs +++ b/src/Quasar/Observable.hs @@ -8,7 +8,6 @@ module Quasar.Observable ( Observable(..), ObservableMessage(..), toObservableUpdate, - asyncObserve, -- * ObservableVar ObservableVar, @@ -129,9 +128,6 @@ observeBlocking observable callback = do putAsyncVar_ cbCompletedVar () -asyncObserve :: IsObservable v o => MonadAsync m => o -> (ObservableMessage v -> m ()) -> m () -asyncObserve observable callback = async_ (observeBlocking observable callback) - data ObserveWhileCompleted = ObserveWhileCompleted deriving stock (Eq, Show)