diff options
| author | Andrew <saintruler@gmail.com> | 2020-11-26 16:51:52 +0400 |
|---|---|---|
| committer | Andrew <saintruler@gmail.com> | 2020-11-26 16:51:52 +0400 |
| commit | 6907a35ac265c4d4eeb127befea481a84e59ad4a (patch) | |
| tree | c115faf536fe82d0e2a998a4b8a1529e3b6ccf16 /Response.hs | |
| parent | 446602fe336ad1c2a23e3d50d7cd1d1356fcc9de (diff) | |
Added Http parsing
Diffstat (limited to 'Response.hs')
| -rw-r--r-- | Response.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |