@@ -232,7 +232,7 @@ runImmediateDomBuilderT (ImmediateDomBuilderT a) env eventChan = do
232232
233233class Monad m => HasDocument m where
234234 askDocument :: m Document
235− default askDocument :: (m ~ f m', MonadTrans f, Monad m', HasDocument m') => f m' Document
235+ default askDocument :: (m ~ f m', MonadTrans f, Monad m', HasDocument m') => m Document
236236 askDocument = lift askDocument
237237
238238instance HasDocument m => HasDocument (ReaderT r m)