diff options
Diffstat (limited to 'Server/Main.hs')
| -rw-r--r-- | Server/Main.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/Server/Main.hs b/Server/Main.hs index bed3de5..8954d6d 100644 --- a/Server/Main.hs +++ b/Server/Main.hs @@ -2,6 +2,7 @@ module Main where import Data.List +import Data.ByteString.Lazy (fromStrict) import Text.Printf import Network.Wai import Network.HTTP.Types @@ -15,6 +16,11 @@ app request respond = respond $ index :: Response index = + responseFile status200 + [("Content-Type", "text/html;charset=UTF-8")] + "pages/index.html" + Nothing + responseLBS status200 [("Content-Type", "text/plain")] "Hello, world!" @@ -22,7 +28,7 @@ index = errorResponse :: Response errorResponse = responseFile status200 - [("Content-Type", "text/plain")] + [("Content-Type", "text/html;charset=UTF-8")] "pages/error.html" Nothing |