{-# OPTIONS_GHC -F -pgmFtrhsx #-} module Main where import Control.Monad import Happstack.Server import Happstack.Server.HSP.HTML import HSP import HSP.ServerPartT main :: IO () main = simpleHTTP nullConf $ msum [ dir "fay" $ serveFile (asContentType "text/javascript") "hsx-client.js" , (fmap toResponse (unXMLGenT page)) ] page :: XMLGenT (ServerPartT IO) XML page =

Test.

This paragraph is in the original HTML.