[hyper linked each part to the other parts
jeremy@n-heptane.com**20080421004840] {
hunk ./tutorial/SimpleSite1.lhs 10
+ (<i><a href='./SimpleSite2.html'>Part II</a> and <a href='./SimpleSite3.html'>Part III</a></i>)
hunk ./tutorial/SimpleSite1.lhs 148
-In the next post we will see how to address these two issues.
+In the <a href="./SimpleSite2.html">next post</a> we will see how to
+Iaddress these two issues.
hunk ./tutorial/SimpleSite1.lhs 196
+</body>
+</html>
hunk ./tutorial/SimpleSite2.lhs 22
+ (<i><a href='./SimpleSite1.html'>Part I</a> and <a href='./SimpleSite3.html'>Part III</a></i>)
hunk ./tutorial/SimpleSite2.lhs 231
- <p>In part III, we will make some small, final adjustments to
+ <p>In <a href="./SimpleSite3.html">part III</a>, we will make some small, final adjustments to
hunk ./tutorial/SimpleSite2.lhs 279
+</body>
+</html>
hunk ./tutorial/SimpleSite3.lhs 26
+ (<i><a href='./SimpleSite1.html'>Part I</a> and <a href='./SimpleSite2.html'>Part II</a></i>)
hunk ./tutorial/SimpleSite3.lhs 77
+ <p>Unfortunately, the following code is quite broken and does not
+ play well with others. For example, if a link points to a .css file,
+ and the .css file references <code>image.png</code>, the browser will try to rewrite
+ the path replacing whatever comes after the last / with
+ <code>image.png.</code> So, consider this section a work in
+ progress. (In fact, consider everything in this series a work in
+ progress).
+
hunk ./tutorial/SimpleSite3.lhs 217
-> implURL :: [ServerPartT IO Response]
-> implURL =
+> implURL :: (ToMessage a) => Site link Link (WebT IO) a -> [ServerPartT IO Response]
+> implURL siteSpec =
hunk ./tutorial/SimpleSite3.lhs 223
->                return . toResponse =<< runSite ourSiteSpec link
+>                return . toResponse =<< runSite siteSpec link
hunk ./tutorial/SimpleSite3.lhs 228
->     do tid <- forkIO $ simpleHTTP nullConf implURL
+>     do tid <- forkIO $ simpleHTTP nullConf (implURL ourSiteSpec)
hunk ./tutorial/SimpleSite3.lhs 234
+</body>
+</html>
}