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