[more progress on the tutorial
jeremy@n-heptane.com**20080707225551] {
hunk ./HAppSHspTutorial.lhs 11
- <p>HAppS (the Haskell Application Server framework) recently got a whole lot more awesome because it now supports HTML templating using HSP (Haskell Server Pages).</p>
-
+ <p><a href="http://happs.org/">HAppS</a> (the Haskell Application Server framework) recently got a whole lot more awesome because it now supports HTML templating using <a href="http://www.cs.chalmers.se/~d00nibro/hsp/">HSP</a> (Haskell Server Pages).</p>
hunk ./HAppSHspTutorial.lhs 13
-
-
hunk ./HAppSHspTutorial.lhs 14
-
hunk ./HAppSHspTutorial.lhs 15
-
hunk ./HAppSHspTutorial.lhs 18
-
hunk ./HAppSHspTutorial.lhs 19
-
hunk ./HAppSHspTutorial.lhs 20
-
hunk ./HAppSHspTutorial.lhs 21
-
hunk ./HAppSHspTutorial.lhs 22
-
hunk ./HAppSHspTutorial.lhs 35
-
hunk ./HAppSHspTutorial.lhs 40
-<ol>
-
+<ul>
hunk ./HAppSHspTutorial.lhs 42
-
hunk ./HAppSHspTutorial.lhs 43
-</ol>
+</ul>
hunk ./HAppSHspTutorial.lhs 46
-
hunk ./HAppSHspTutorial.lhs 47
+ <p>This is the basic template for creating a HAppS application using:</p>
+ <ul>
+  <li>HAppS-Server for HTTP, cookies, etc
+  <li>HAppS-State for persistent storage (aka, our database)
+  <li>HSP for HTML templating
+ </ul>
+<p>First we have our Main.hs which starts up the dynamic page loading engine, the state engine, and forks of the HTTP service.</p>
+
+> module Main where
+>
+> import Control.Concurrent
+> import HAppS.Server
+> import HAppS.State
+> import HSP
+> import HAppS.Template.HSP
+> import HAppS.Template.HSP.Handle
+>
+> main :: IO ()
+> main = 
+>    do store <- newStore
+>       -- control <- startSystemState entryPoint
+>       tid <- forkIO $ simpleHTTP validateConf $ impl store
+>       putStrLn "running..."
+>       waitForTermination
+>       killThread tid
+>       -- shutdownSystem control
+>       destroyStore store
+
+<p>The <code>impl</code> function is your typical HAppS-Server impl function, except that it uses the <code>runHSPHandle</code> function provided by <kbd>happs-hsp-template</kbd>.</p>
hunk ./HAppSHspTutorial.lhs 78
+> impl :: Store -> [ServerPart Response]
+> impl store =
+>     [ runHSPHandle "pages" "objfiles" store $ multi
+>       [ method GET $ ok =<< execTemplate Nothing "Index.hs"
+>       ]
+>     ]
+
+<p><code>runHSPHandle</code> takes four arguments</p>
+<ol>
+ <li>the directory which holds the templates
+ <li>the directory to store the compiled template object files in
+ <li>a handle to the <code>store</code> which manages the objects
+ <li>a <code>ServerPart a</code>
+</ol>
+<p>The <code>execTemplate</code> function is responsible for actually invoking a specific template. It takes two arguments:</p>
+<ol>
+ <li>A default mime-type, doctype, etc, to use if the template does not provide any values.
+ <li>The name of the template file relative to the directory passed to <code>runHSPHandle</code>
+</ol>
hunk ./Makefile 19
-.PHONY: test
+.PHONY: test all
}