diff options
| author | Andrew <saintruler@gmail.com> | 2020-11-27 17:40:04 +0400 |
|---|---|---|
| committer | Andrew <saintruler@gmail.com> | 2020-11-27 17:40:04 +0400 |
| commit | fb7e450d917ec87202f9de019238b78c1b645328 (patch) | |
| tree | ca70481709864b5c6510009fe45a9d6b6f91dd8c /Response.hs | |
| parent | 039c96096bf8f2294850be79a88a0761a5f58acf (diff) | |
Added basic HTTP types
Diffstat (limited to 'Response.hs')
| -rw-r--r-- | Response.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Response.hs b/Response.hs index 7b99005..be347c1 100644 --- a/Response.hs +++ b/Response.hs @@ -1,8 +1,9 @@ module Response where -data Response = - HtmlResponse Int String -- Код возврата, содержимое HTML +data Response + = HtmlResponse Int String -- Код возврата, содержимое HTML | TextResponse Int String String -- Код возврата, Content-Type, содержимое HTML + deriving Show notFoundResponse = HtmlResponse 404 "<strong>404 Not Found</strong>" |