quasar: Remove unnecessary ObservableT hunk

queezle42 · Jun 13, 2024 · 729aadd · 729aadd
1 parent 4163178
commit 729aadd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/quasar/src/Quasar/Observable/Core.hs b/quasar/src/Quasar/Observable/Core.hs
@@ -1576,7 +1576,7 @@ type Observable :: LoadKind -> [Type] -> Type -> Type
 newtype Observable canLoad exceptions v = Observable (ObservableT canLoad exceptions Identity v)
 
 instance ToObservableT canLoad exceptions Identity v (Observable canLoad exceptions v) where
-  toObservableT (Observable x) = ObservableT x
+  toObservableT (Observable x) = x
 
 instance Functor (Observable canLoad exceptions) where
   fmap fn (Observable fx) = Observable (ObservableT (mapObservable# fn fx))