@@ -236,7 +236,7 @@ instance (SupportsStaticDomBuilder t m) => Prerender JS' t (StaticDomBuilderT t
236236 _ <- commentNode $ CommentNodeConfig startMarker Nothing
237237 a <- server
238238 _ <- commentNode $ CommentNodeConfig endMarker Nothing
239− return $ pure a
239+ pure $ pure a
240240
241241instance (Prerender js t m, Monad m) => Prerender js t (ReaderT r m) where
242242 type Client (ReaderT r m) = ReaderT r (Client m)
@@ -251,7 +251,7 @@ instance (Prerender js t m, Monad m, Reflex t, MonadFix m, Monoid w) => Prerende
251251 let (a, w') = splitDynPure x
252252 w = join w'
253253 tellDyn w
254− return a
254+ pure a
255255
256256instance (Prerender js t m, Monad m, Reflex t, Semigroup w) => Prerender js t (EventWriterT t w m) where
257257 type Client (EventWriterT t w m) = EventWriterT t w (Client m)
@@ -260,7 +260,7 @@ instance (Prerender js t m, Monad m, Reflex t, Semigroup w) => Prerender js t (E
260260 let (a, w') = splitDynPure x
261261 w = switch $ current w'
262262 tellEvent w
263− return a
263+ pure a
264264
265265instance (Prerender js t m, MonadFix m, Reflex t) => Prerender js t (RequesterT t request response m) where
266266 type Client (RequesterT t request response m) = RequesterT t request response (Client m)
@@ -281,7 +281,7 @@ instance (Prerender js t m, Monad m, Reflex t, MonadFix m, Group q, Additive q,
281281 x <- lift $ prerender (runQueryT server result) (runQueryT client result)
282282 let (a, inc) = splitDynPure x
283283 query = incrementalToDynamic =<< inc -- Can we avoid the incrementalToDynamic?
284− return a
284+ pure a
285285
286286instance (Prerender js t m, Monad m) => Prerender js t (InputDisabledT m) where
287287 type Client (InputDisabledT m) = InputDisabledT (Client m)
@@ -320,4 +320,4 @@ deleteToPrerenderEnd doc = do
320320 endNode <- go 0 $ DOM.toNode startNode
321321 deleteBetweenExclusive startNode endNode
322322 setPreviousNode $ Just $ DOM.toNode endNode
323− return endNode
323+ pure endNode