From 0093cbc556c735d148b571011a45ad32c567d62d Mon Sep 17 00:00:00 2001
From: Andrew <saintruler@gmail.com>
Date: Fri, 27 Nov 2020 18:49:06 +0400
Subject: Added feature of forming reponse into text

---
 Web/Response.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'Web/Response.hs')

diff --git a/Web/Response.hs b/Web/Response.hs
index 39f6887..9bc2179 100644
--- a/Web/Response.hs
+++ b/Web/Response.hs
@@ -3,6 +3,8 @@ module Web.Response where
 import qualified Data.Text as T
 import Data.Text (Text)
 
+import Web.Utils
+
 data Response
   = HtmlResponse Int Text -- Код возврата, содержимое HTML
   | TextResponse Int Text Text -- Код возврата, Content-Type, содержимое HTML
@@ -18,3 +20,11 @@ getContentType (TextResponse _ contentType _) = contentType
 
 getContent (HtmlResponse _ content) = content
 getContent (TextResponse _ _ content) = content
+
+formResponse :: Response -> Text
+formResponse (HtmlResponse code html) = 
+  T.unlines
+  $ map T.pack [ "HTTP/1.1 " ++ getStatus code
+               , "Content-Type: text/html; charset=utf-8"
+               , "Connection: keep-alive"
+               , "" ] ++ [html]
-- 
cgit v1.2.3