From dc68528b0d0b7cebf8882e694d3cf1ba120fde2a Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Sun, 5 Sep 2021 04:06:59 +0200
Subject: [PATCH] Remove asyncObserve (is now `async_` and `observe`)
Co-authored-by: Jan Beinke <git@janbeinke.com>
---
src/Quasar/Observable.hs | 4 ----
1 file changed, 4 deletions(-)
diff --git a/src/Quasar/Observable.hs b/src/Quasar/Observable.hs
index b87fec5..de9f814 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)
--
GitLab