@@ -235,7 +235,7 @@ instance (SupportsStaticDomBuilder t m) => Prerender JS' t (StaticDomBuilderT t
235235 _ <- commentNode $ CommentNodeConfig startMarker Nothing
236236 a <- server
237237 _ <- commentNode $ CommentNodeConfig endMarker Nothing
238− pure $ pure a
238+ return $ pure a
239239
240240instance (Prerender js t m, Monad m) => Prerender js t (ReaderT r m) where
241241 type Client (ReaderT r m) = ReaderT r (Client m)
@@ -250,7 +250,7 @@ instance (Prerender js t m, Monad m, Reflex t, MonadFix m, Monoid w) => Prerende
250250 let (a, w') = splitDynPure x
251251 w = join w'
252252 tellDyn w
253− pure a
253+ return a
254254
255255instance (Prerender js t m, Monad m, Reflex t, Semigroup w) => Prerender js t (EventWriterT t w m) where
256256 type Client (EventWriterT t w m) = EventWriterT t w (Client m)
@@ -259,7 +259,7 @@ instance (Prerender js t m, Monad m, Reflex t, Semigroup w) => Prerender js t (E
259259 let (a, w') = splitDynPure x
260260 w = switch $ current w'
261261 tellEvent w
262− pure a
262+ return a
263263
264264instance (Prerender js t m, MonadFix m, Reflex t) => Prerender js t (RequesterT t request response m) where
265265 type Client (RequesterT t request response m) = RequesterT t request response (Client m)
@@ -280,7 +280,7 @@ instance (Prerender js t m, Monad m, Reflex t, MonadFix m, Group q, Additive q,
280280 x <- lift $ prerender (runQueryT server result) (runQueryT client result)
281281 let (a, inc) = splitDynPure x
282282 query = incrementalToDynamic =<< inc -- Can we avoid the incrementalToDynamic?
283− pure a
283+ return a
284284
285285instance (Prerender js t m, Monad m) => Prerender js t (InputDisabledT m) where
286286 type Client (InputDisabledT m) = Client m
@@ -315,4 +315,4 @@ deleteToPrerenderEnd doc = do
315315 endNode <- go 0 $ DOM.toNode startNode
316316 deleteBetweenExclusive startNode endNode
317317 setPreviousNode $ Just $ DOM.toNode endNode
318− pure endNode
318+ return endNode