Changed directory structure

1 files changed, 17 insertions, 0 deletions

diff --git a/Web/Response.hs b/Web/Response.hs
new file mode 100644
index 0000000..b08efb9
--- /dev/null
+++ b/Web/Response.hs
@@ -0,0 +1,17 @@
+module Web.Response where
+
+data Response
+  = HtmlResponse Int String -- Код возврата, содержимое HTML
+  | TextResponse Int String String -- Код возврата, Content-Type, содержимое HTML
+  deriving Show
+
+notFoundResponse = HtmlResponse 404 "<strong>404 Not Found</strong>"
+
+getStatusCode (HtmlResponse code _) = code
+getStatusCode (TextResponse code _ _) = code
+
+getContentType (HtmlResponse _ _) = "text/html"
+getContentType (TextResponse _ contentType _) = contentType
+
+getContent (HtmlResponse _ content) = content
+getContent (TextResponse _ _ content) = content
\ No newline at end of file