From fb7e450d917ec87202f9de019238b78c1b645328 Mon Sep 17 00:00:00 2001
From: Andrew <saintruler@gmail.com>
Date: Fri, 27 Nov 2020 17:40:04 +0400
Subject: Added basic HTTP types

---
 Response.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Response.hs')

diff --git a/Response.hs b/Response.hs
index 7b99005..be347c1 100644
--- a/Response.hs
+++ b/Response.hs
@@ -1,8 +1,9 @@
 module Response where
 
-data Response =
-  HtmlResponse Int String -- Код возврата, содержимое HTML
+data Response
+  = HtmlResponse Int String -- Код возврата, содержимое HTML
   | TextResponse Int String String -- Код возврата, Content-Type, содержимое HTML
+  deriving Show
 
 notFoundResponse = HtmlResponse 404 "<strong>404 Not Found</strong>"
 
-- 
cgit v1.2.3