From 8642d588952a16c2ff6145fb89aa4be4599b4743 Mon Sep 17 00:00:00 2001 From: John Ericson Date: Tue, 1 Oct 2024 11:23:31 -0400 Subject: [PATCH] Fix a loopy superclass solution This is deprecated in at least 9.8, and removed in 9.10. Co-Authored-By: ymeister <47071325+ymeister@users.noreply.github.com> --- src/Reflex/PerformEvent/Base.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Reflex/PerformEvent/Base.hs b/src/Reflex/PerformEvent/Base.hs index 152460f9..9fae30ae 100644 --- a/src/Reflex/PerformEvent/Base.hs +++ b/src/Reflex/PerformEvent/Base.hs @@ -73,7 +73,7 @@ instance (PrimMonad (HostFrame t), ReflexHost t) => PrimMonad (PerformEventT t m type PrimState (PerformEventT t m) = PrimState (HostFrame t) primitive = PerformEventT . lift . primitive -instance (ReflexHost t, Ref m ~ Ref IO) => PerformEvent t (PerformEventT t m) where +instance (Monad (HostFrame t), ReflexHost t, Ref m ~ Ref IO) => PerformEvent t (PerformEventT t m) where type Performable (PerformEventT t m) = HostFrame t {-# INLINABLE performEvent_ #-} performEvent_ = PerformEventT . requesting_