From 1cc6cfef971ccb3c1d70f2a5570e445556e4f6fb Mon Sep 17 00:00:00 2001 From: Andrew Date: Fri, 27 Nov 2020 17:50:54 +0400 Subject: Changed directory structure --- Web/Response.hs | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 Web/Response.hs (limited to 'Web/Response.hs') 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 "404 Not Found" + +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 -- cgit v1.2.3