@@ -71,11 +71,11 @@ spec = do
7171headers :: H.ResponseHeaders
7272headers = [
7373 ("Date", "Mon, 13 Aug 2012 04:22:55 GMT")
74− , ("Content-Lenght", "151")
74+ , ("Content-Length", "151")
7575 , ("Server", "Mighttpd/2.5.8")
7676 , ("Last-Modified", "Fri, 22 Jun 2012 01:18:08 GMT")
7777 , ("Content-Type", "text/html")
7878 ]
7979
8080composedHeader :: ByteString
81−composedHeader = "HTTP/1.1 200 OK\r\nDate: Mon, 13 Aug 2012 04:22:55 GMT\r\nContent-Lenght: 151\r\nServer: Mighttpd/2.5.8\r\nLast-Modified: Fri, 22 Jun 2012 01:18:08 GMT\r\nContent-Type: text/html\r\n\r\n"
81+composedHeader = "HTTP/1.1 200 OK\r\nDate: Mon, 13 Aug 2012 04:22:55 GMT\r\nContent-Length: 151\r\nServer: Mighttpd/2.5.8\r\nLast-Modified: Fri, 22 Jun 2012 01:18:08 GMT\r\nContent-Type: text/html\r\n\r\n"