Commits

Luke Plant committed 943cbbd

Removed old comments

Comments (0)

Files changed (1)

src/Web/Response.hs

                      setStatus,
                      buildResponse) where
 
--- Mainly borrowed from Network.CGI.Protocol
-
 import Data.ByteString.Lazy.Char8 (ByteString)
 import qualified Data.ByteString.Lazy.Char8 as BS
 import Data.List
                          headers = [(contentTypeName, htmlContent charset)]
                        }
 
-{-
-
-TODO
-
-utf8HtmlResponse should probably accept Html as an argument and return
-the full Response, rather than returning an empty Response.
-
-Need to think more about constructors for Responses and how the API
-should work.
-
--}
-
 -- | Create an empty response for sending HTML, UTF-8 encoding
 utf8HtmlResponse = htmlResponse "UTF-8"