routing

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)