import Network.FastCGI import Text.CHXHtml.XHtml1_strict -- CHXHtml demoFastCGI.hs -- -- Paul Talaga -- June 5, 2010 -- -- Construct a static Hello World XHTML1 Strict compliant page -- render it to FastCGI via ByteString for speed -- containing a from to specify how large the table should be. -- -- If the 'n' parameter is set produce a multiplication table of that size. main = runFastCGI $ handleErrors test test :: CGI CGIResult test = do n <- (Network.FastCGI.getInput "n"); case n of Just m -> outputFPS $ render_bs (helloWorldTable (read m::Int)) Nothing -> outputFPS $ render_bs helloWorld helloWorld = helloWorldTemplate [] -- Simple Hello World template page helloWorldTemplate content = _html [ _head [ _title [pcdata "Hello World Multi Table"] ], _body [_h1 [pcdata "Hello World Multiplication Table"], _hr, form_ [method_att Get] [_div [ _label [pcdata "size:"], input_ [type_att "text", name_att "n", size_att "50"] ] ], -- The tag can not be under , but inside a

. -- Try > htmlHelp ["html","body"] to get a list of allowed tags and attributes -- Uncomment the following line to cause a type error. -- _a [pcdata "Will not work!"], _div content ] ] -- Hello World table page with dynamic table multiplication table -- Because children are specified as a list, we can use Haskell's built-in functions for -- list manipulation and creation. helloWorldTable n = helloWorldTemplate [table_ [border_att "1"] (map (\i->_tr (map (\j->_td [pcdata (show (i * j))]) [1..n]) ) [1..n]) ]