From 0b8d565e250bb0dca045939a84c5863e80cf4a98 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Sun, 11 Oct 2020 00:09:00 +0200
Subject: [PATCH] Rename updateBasicObservable to modifyBasicObservable
---
src/lib/Qd/Observable.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/lib/Qd/Observable.hs b/src/lib/Qd/Observable.hs
index ed9dafb..fcf3869 100644
--- a/src/lib/Qd/Observable.hs
+++ b/src/lib/Qd/Observable.hs
@@ -15,7 +15,7 @@ module Qd.Observable (
BasicObservable,
createBasicObservable,
setBasicObservable,
- updateBasicObservable,
+ modifyBasicObservable,
joinObservable,
joinObservableWith,
FnObservable(..),
@@ -124,8 +124,8 @@ setBasicObservable (BasicObservable mvar) value = do
mapM_ (\callback -> callback (Update, value)) subscribers
return (value, subscribers)
-updateBasicObservable :: BasicObservable v -> (v -> v) -> IO ()
-updateBasicObservable (BasicObservable mvar) f =
+modifyBasicObservable :: BasicObservable v -> (v -> v) -> IO ()
+modifyBasicObservable (BasicObservable mvar) f =
modifyMVar_ mvar $ \(oldState, subscribers) -> do
let newState = (\v -> f v) <$> oldState
mapM_ (\callback -> callback (Update, newState)) subscribers
--
GitLab