Remove references to ExhaustiblePerformEvent
commit0905c39b7e2118bc36fa9ca7343bb68d48ee33d7
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateThu 9 Mar 2017, 13:48 (10 years ago)
parent05fe043
src/Foreign/JavaScript/TH.hs−3
@@ -173,9 +173,6 @@ instance PerformEvent t m => PerformEvent t (WithWebView x m) where
173173 {-# INLINABLE performEvent #-}
174174 performEvent e = liftWith $ \run -> performEvent $ fmap run e
175175
176−instance ExhaustiblePerformEvent t m => ExhaustiblePerformEvent t (WithWebView x m) where
177− withPerformEventExhausted a = liftWith $ \run -> withPerformEventExhausted $ run a
178−
179176runWithWebView :: WithWebView x m a -> WebViewSingleton x -> m a
180177runWithWebView = runReaderT . unWithWebView
181178
src/Reflex/Dom/Builder/Immediate.hs−3
@@ -593,9 +593,6 @@ instance PerformEvent t m => PerformEvent t (ImmediateDomBuilderT t m) where
593593 {-# INLINABLE performEvent #-}
594594 performEvent e = lift $ performEvent e
595595
596−instance ExhaustiblePerformEvent t m => ExhaustiblePerformEvent t (ImmediateDomBuilderT t m) where
597− withPerformEventExhausted a = liftWith $ \run -> withPerformEventExhausted $ run a
598−
599596instance PostBuild t m => PostBuild t (ImmediateDomBuilderT t m) where
600597 {-# INLINABLE getPostBuild #-}
601598 getPostBuild = lift getPostBuild