on develop help sign in
Remove references to ExhaustiblePerformEvent
0905c39Ryan Trinkle
src/Foreign/JavaScript/TH.hs−3
@@ -173,9 +173,6 @@ instance PerformEvent t m => PerformEvent t (WithWebView x m) where
173 {-# INLINABLE performEvent #-}
173 {-# INLINABLE performEvent #-}
174 performEvent e = liftWith $ \run -> performEvent $ fmap run e
174 performEvent e = liftWith $ \run -> performEvent $ fmap run e
175
175
176−instance ExhaustiblePerformEvent t m => ExhaustiblePerformEvent t (WithWebView x m) where
177− withPerformEventExhausted a = liftWith $ \run -> withPerformEventExhausted $ run a
178−
179runWithWebView :: WithWebView x m a -> WebViewSingleton x -> m a
176runWithWebView :: WithWebView x m a -> WebViewSingleton x -> m a
180runWithWebView = runReaderT . unWithWebView
177runWithWebView = runReaderT . unWithWebView
181
178
src/Reflex/Dom/Builder/Immediate.hs−3
@@ -593,9 +593,6 @@ instance PerformEvent t m => PerformEvent t (ImmediateDomBuilderT t m) where
593 {-# INLINABLE performEvent #-}
593 {-# INLINABLE performEvent #-}
594 performEvent e = lift $ performEvent e
594 performEvent e = lift $ performEvent e
595
595
596−instance ExhaustiblePerformEvent t m => ExhaustiblePerformEvent t (ImmediateDomBuilderT t m) where
597− withPerformEventExhausted a = liftWith $ \run -> withPerformEventExhausted $ run a
598−
599instance PostBuild t m => PostBuild t (ImmediateDomBuilderT t m) where
596instance PostBuild t m => PostBuild t (ImmediateDomBuilderT t m) where
600 {-# INLINABLE getPostBuild #-}
597 {-# INLINABLE getPostBuild #-}
601 getPostBuild = lift getPostBuild
598 getPostBuild = lift getPostBuild