{-# LANGUAGE OverloadedStrings #-}
module Reply (
reply
) where
import Data.ByteString.Char8 as B (ByteString, concat)
reply :: ByteString
reply = B.concat [
"HTTP/1.1 200 OK\r\n"
, "Date: Tue, 09 Oct 2012 16:36:18 GMT\r\n"
, "Content-Length: 151\r\n"
, "Server: Witty/0.0.0\r\n"
, "Last-Modified: Mon, 09 Jul 2012 03:42:33 GMT\r\n"
, "Content-Type: text/html\r\n"
, "\r\n"
, "\n"
, "\n"
, "Welcome to witty!\n"
, "\n"
, "\n"
, "Welcome to witty!
\n"
, "\n"
, "\n"
]