diff options
| author | Andrew <saintruler@gmail.com> | 2020-11-27 20:51:21 +0400 |
|---|---|---|
| committer | Andrew <saintruler@gmail.com> | 2020-11-27 20:51:21 +0400 |
| commit | 46d7f5d2d88a62ed2c77514c33d97e25d737881c (patch) | |
| tree | c79a0c9ab4a1094b04716320d1c686bbe2a73eb7 /Web/Response.hs | |
| parent | 0093cbc556c735d148b571011a45ad32c567d62d (diff) | |
Added networking
Diffstat (limited to 'Web/Response.hs')
| -rw-r--r-- | Web/Response.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Web/Response.hs b/Web/Response.hs index 9bc2179..3c393ad 100644 --- a/Web/Response.hs +++ b/Web/Response.hs @@ -23,8 +23,8 @@ getContent (TextResponse _ _ content) = content formResponse :: Response -> Text formResponse (HtmlResponse code html) = - T.unlines + T.strip $ T.unlines $ map T.pack [ "HTTP/1.1 " ++ getStatus code , "Content-Type: text/html; charset=utf-8" - , "Connection: keep-alive" + , "Connection: close" , "" ] ++ [html] |