From b6d957517d5f3796796f14f21af2a34023ac5002 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Mon, 30 Aug 2021 22:25:12 +0200
Subject: [PATCH] Change liftA2 error propagation priority to match Monad
 instance

---
 src/Quasar/Observable.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Quasar/Observable.hs b/src/Quasar/Observable.hs
index eea49d5..a0da732 100644
--- a/src/Quasar/Observable.hs
+++ b/src/Quasar/Observable.hs
@@ -62,11 +62,11 @@ instance Functor ObservableMessage where
 
 instance Applicative ObservableMessage where
   pure = ObservableUpdate
+  liftA2 fn (ObservableUpdate x) (ObservableUpdate y) = ObservableUpdate (fn x y)
   liftA2 _ (ObservableNotAvailable ex) _ = ObservableNotAvailable ex
-  liftA2 _ _ (ObservableNotAvailable ex) = ObservableNotAvailable ex
   liftA2 _ ObservableLoading _ = ObservableLoading
+  liftA2 _ _ (ObservableNotAvailable ex) = ObservableNotAvailable ex
   liftA2 _ _ ObservableLoading = ObservableLoading
-  liftA2 fn (ObservableUpdate x) (ObservableUpdate y) = ObservableUpdate (fn x y)
 
 
 toObservableUpdate :: MonadThrow m => ObservableMessage a -> m (Maybe a)
-- 
GitLab