From be1ae824f5a157f5879cfadf2714f2e7935d72ec Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Sun, 1 Nov 2020 02:04:56 +0100
Subject: [PATCH] Remove default implementation of Observable.subscribe
---
src/lib/Qd/Observable.hs | 2 --
1 file changed, 2 deletions(-)
diff --git a/src/lib/Qd/Observable.hs b/src/lib/Qd/Observable.hs
index adb8964..0445cd0 100644
--- a/src/lib/Qd/Observable.hs
+++ b/src/lib/Qd/Observable.hs
@@ -65,14 +65,12 @@ class Gettable v a | a -> v where
class Gettable v o => Observable v o | o -> v where
subscribe :: o -> (ObservableMessage v -> IO ()) -> IO SubscriptionHandle
- subscribe = subscribe . toSomeObservable
toSomeObservable :: o -> SomeObservable v
toSomeObservable = SomeObservable
mapObservable :: (v -> a) -> o -> SomeObservable a
mapObservable f = mapObservableM (return . f)
mapObservableM :: (v -> IO a) -> o -> SomeObservable a
mapObservableM f = SomeObservable . MappedObservable f
- {-# MINIMAL subscribe | toSomeObservable #-}
-- | Variant of `getValue` that throws exceptions instead of returning them.
getValueE :: (Exception e, Observable (Either e v) o) => o -> IO v
--
GitLab