@@ -157,7 +157,11 @@ data ImmediateDomBuilderEnv t
157157 }
158158
159159newtype ImmediateDomBuilderT t m a = ImmediateDomBuilderT { unImmediateDomBuilderT :: ReaderT (ImmediateDomBuilderEnv t) (RequesterT t JSM Identity (TriggerEventT t m)) a }
160− deriving (Functor, Applicative, Monad, MonadFix, MonadIO, MonadException, MonadAsyncException)
160+ deriving (Functor, Applicative, Monad, MonadFix, MonadIO, MonadException
161+#if MIN_VERSION_base(4,9,1)
162+ , MonadAsyncException
163+#endif
164+ )
161165
162166#ifndef __GHCJS__
163167instance MonadJSM m => MonadJSM (ImmediateDomBuilderT t m) where