From 32ec9fa454e1d6a670d8b7fe193458d59b62ca63 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Fri, 23 Jul 2021 23:38:35 +0100
Subject: (Server)+index.html landing page with support in app

---
 Server/Main.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'Server/Main.hs')

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
 
-- 
cgit v1.2.3-13-gbd6f