Skip to content
Snippets Groups Projects
Commit b6d95751 authored by Jens Nolte's avatar Jens Nolte
Browse files

Change liftA2 error propagation priority to match Monad instance

parent abe65bcf
No related branches found
No related tags found
No related merge requests found
Pipeline #2419 passed
Hide whitespace changes
Inline Side-by-side
src/Quasar/Observable.hs
+ 2
− 2
View file @ b6d95751
...@@ -62,11 +62,11 @@ instance Functor ObservableMessage where ...@@ -62,11 +62,11 @@ instance Functor ObservableMessage where
instance Applicative ObservableMessage where instance Applicative ObservableMessage where
pure = ObservableUpdate pure = ObservableUpdate
liftA2 fn (ObservableUpdate x) (ObservableUpdate y) = ObservableUpdate (fn x y)
liftA2 _ (ObservableNotAvailable ex) _ = ObservableNotAvailable ex liftA2 _ (ObservableNotAvailable ex) _ = ObservableNotAvailable ex
liftA2 _ _ (ObservableNotAvailable ex) = ObservableNotAvailable ex
liftA2 _ ObservableLoading _ = ObservableLoading liftA2 _ ObservableLoading _ = ObservableLoading
liftA2 _ _ (ObservableNotAvailable ex) = ObservableNotAvailable ex
liftA2 _ _ ObservableLoading = ObservableLoading liftA2 _ _ ObservableLoading = ObservableLoading
liftA2 fn (ObservableUpdate x) (ObservableUpdate y) = ObservableUpdate (fn x y)
toObservableUpdate :: MonadThrow m => ObservableMessage a -> m (Maybe a) toObservableUpdate :: MonadThrow m => ObservableMessage a -> m (Maybe a)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment