@@ -112,6 +112,33 @@ frontend = Frontend
112112 (el "b" $ text "Client")
113113 el "div" $ text "first"
114114
115+ prerender
116+ (do
117+ liftIO $ putStrLn "Server"
118+ el "b" $ text "Server"
119+ prerender
120+ (do
121+ liftIO $ putStrLn "Server->Server"
122+ el "b" $ text "Server->Server"
123+ )
124+ (do
125+ liftIO $ putStrLn "Server->Client"
126+ el "b" $ text "Server->Client"
127+ )
128+ )
129+ (do
130+ liftIO $ putStrLn "Client"
131+ el "b" $ text "Client"
132+ prerender
133+ (do
134+ liftIO $ putStrLn "Client->Server"
135+ el "b" $ text "Client->Server"
136+ )
137+ (do
138+ liftIO $ putStrLn "Client->Client"
139+ el "b" $ text "Client->Client"
140+ )
141+ )
115142-- elAttr "article" ("style" =: "background: paleturquoise") $ do
116143-- dyn_ $ ffor clicks $ \x -> case x `mod` 2 of
117144-- 0 -> el "span" $ text "Even"