diff options
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 |