From 5bb6a10d99442b8981045bbb08b11018e2249d30 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Wed, 11 Aug 2021 23:19:11 +0200
Subject: [PATCH] Swap newObservableStub arguments
Co-authored-by: Jan Beinke <git@janbeinke.com>
---
src/Quasar/Network/Runtime/Observable.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/Quasar/Network/Runtime/Observable.hs b/src/Quasar/Network/Runtime/Observable.hs
index 02f9151..8391e38 100644
--- a/src/Quasar/Network/Runtime/Observable.hs
+++ b/src/Quasar/Network/Runtime/Observable.hs
@@ -8,11 +8,11 @@ import Quasar.Observable
import Quasar.Prelude
newObservableStub
- :: forall v. Binary v =>
- (forall m. MonadIO m => m (Stream Void v))
- -> (forall m. MonadIO m => m (Awaitable v))
+ :: forall v. Binary v
+ => (forall m. MonadIO m => m (Awaitable v))
+ -> (forall m. MonadIO m => m (Stream Void v))
-> IO (Observable v)
-newObservableStub startObserveRequest startRetrieveRequest = pure uncachedObservable -- TODO cache
+newObservableStub startRetrieveRequest startObserveRequest = pure uncachedObservable -- TODO cache
where
uncachedObservable :: Observable v
uncachedObservable = fnObservable observeFn retrieveFn
--
GitLab