diff options
Diffstat (limited to 'cgi')
| -rw-r--r-- | cgi/index.hs | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/cgi/index.hs b/cgi/index.hs deleted file mode 100644 index c01e79d..0000000 --- a/cgi/index.hs +++ /dev/null @@ -1,22 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} - -import Settlr.Storage -import Network.CGI (runCGI, handleErrors, CGIResult, CGI, outputFPS) -import Text.Blaze.Html5 (Html, (!)) -import qualified Text.Blaze.Html5 as H -import qualified Text.Blaze.Html5.Attributes as A -import Text.Blaze.Html.Renderer.Utf8 (renderHtml) - -page :: Html -page = H.docTypeHtml $ do - H.head $ do - H.title "Test" - H.meta ! A.charset "utf-8" - H.body $ do - H.p "Hello, world!" - -cgiMain :: CGI CGIResult -cgiMain = outputFPS $ renderHtml page - -main :: IO () -main = runCGI (handleErrors cgiMain) |
