git.iko.soy/reflex-dom
on develop help sign in
Use return instead of pure
d38b4b5Elliot Cameron
reflex-dom-core/src/Reflex/Dom/Prerender.hs+5−5
compare with develop
unifiedsplit
@@ -235,7 +235,7 @@ instance (SupportsStaticDomBuilder t m) => Prerender JS' t (StaticDomBuilderT t
235 _ <- commentNode $ CommentNodeConfig startMarker Nothing
235 _ <- commentNode $ CommentNodeConfig startMarker Nothing
236 a <- server
236 a <- server
237 _ <- commentNode $ CommentNodeConfig endMarker Nothing
237 _ <- commentNode $ CommentNodeConfig endMarker Nothing
238− pure $ pure a
238+ return $ pure a
239
239
240instance (Prerender js t m, Monad m) => Prerender js t (ReaderT r m) where
240instance (Prerender js t m, Monad m) => Prerender js t (ReaderT r m) where
241 type Client (ReaderT r m) = ReaderT r (Client m)
241 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
250 let (a, w') = splitDynPure x
250 let (a, w') = splitDynPure x
251 w = join w'
251 w = join w'
252 tellDyn w
252 tellDyn w
253− pure a
253+ return a
254
254
255instance (Prerender js t m, Monad m, Reflex t, Semigroup w) => Prerender js t (EventWriterT t w m) where
255instance (Prerender js t m, Monad m, Reflex t, Semigroup w) => Prerender js t (EventWriterT t w m) where
256 type Client (EventWriterT t w m) = EventWriterT t w (Client m)
256 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
259 let (a, w') = splitDynPure x
259 let (a, w') = splitDynPure x
260 w = switch $ current w'
260 w = switch $ current w'
261 tellEvent w
261 tellEvent w
262− pure a
262+ return a
263
263
264instance (Prerender js t m, MonadFix m, Reflex t) => Prerender js t (RequesterT t request response m) where
264instance (Prerender js t m, MonadFix m, Reflex t) => Prerender js t (RequesterT t request response m) where
265 type Client (RequesterT t request response m) = RequesterT t request response (Client m)
265 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,
280 x <- lift $ prerender (runQueryT server result) (runQueryT client result)
280 x <- lift $ prerender (runQueryT server result) (runQueryT client result)
281 let (a, inc) = splitDynPure x
281 let (a, inc) = splitDynPure x
282 query = incrementalToDynamic =<< inc -- Can we avoid the incrementalToDynamic?
282 query = incrementalToDynamic =<< inc -- Can we avoid the incrementalToDynamic?
283− pure a
283+ return a
284
284
285instance (Prerender js t m, Monad m) => Prerender js t (InputDisabledT m) where
285instance (Prerender js t m, Monad m) => Prerender js t (InputDisabledT m) where
286 type Client (InputDisabledT m) = Client m
286 type Client (InputDisabledT m) = Client m
@@ -315,4 +315,4 @@ deleteToPrerenderEnd doc = do
315 endNode <- go 0 $ DOM.toNode startNode
315 endNode <- go 0 $ DOM.toNode startNode
316 deleteBetweenExclusive startNode endNode
316 deleteBetweenExclusive startNode endNode
317 setPreviousNode $ Just $ DOM.toNode endNode
317 setPreviousNode $ Just $ DOM.toNode endNode
318− pure endNode
318+ return endNode