diff options
author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2021-07-23 23:38:35 +0100 |
---|---|---|
committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2021-07-23 23:38:35 +0100 |
commit | 32ec9fa454e1d6a670d8b7fe193458d59b62ca63 (patch) | |
tree | 4ba69d2e7e8ce03afa12e0f1edffc41fb3bb332b /Server/Main.hs | |
parent | cc2f78d27b111d21ce385214ddeaa9376175d034 (diff) | |
download | numberdisplay-32ec9fa454e1d6a670d8b7fe193458d59b62ca63.tar.gz numberdisplay-32ec9fa454e1d6a670d8b7fe193458d59b62ca63.tar.bz2 numberdisplay-32ec9fa454e1d6a670d8b7fe193458d59b62ca63.zip |
(Server)+index.html landing page with support in app
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 |