From 6907a35ac265c4d4eeb127befea481a84e59ad4a Mon Sep 17 00:00:00 2001
From: Andrew <saintruler@gmail.com>
Date: Thu, 26 Nov 2020 16:51:52 +0400
Subject: Added Http parsing

---
 Response.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Response.hs')

diff --git a/Response.hs b/Response.hs
index f33777d..7b99005 100644
--- a/Response.hs
+++ b/Response.hs
@@ -4,6 +4,7 @@ data Response =
   HtmlResponse Int String -- Код возврата, содержимое HTML
   | TextResponse Int String String -- Код возврата, Content-Type, содержимое HTML
 
+notFoundResponse = HtmlResponse 404 "<strong>404 Not Found</strong>"
 
 getStatusCode (HtmlResponse code _) = code
 getStatusCode (TextResponse code _ _) = code
-- 
cgit v1.2.3