blob: 39f68873eaf736bf630f97f98372eeb1f3e47ff5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
module Web.Response where
import qualified Data.Text as T
import Data.Text (Text)
data Response
= HtmlResponse Int Text -- Код возврата, содержимое HTML
| TextResponse Int Text Text -- Код возврата, Content-Type, содержимое HTML
deriving Show
notFoundResponse = HtmlResponse 404 (T.pack "<strong>404 Not Found</strong>")
getStatusCode (HtmlResponse code _) = code
getStatusCode (TextResponse code _ _) = code
getContentType (HtmlResponse _ _) = (T.pack "text/html")
getContentType (TextResponse _ contentType _) = contentType
getContent (HtmlResponse _ content) = content
getContent (TextResponse _ _ content) = content
|
