From 463665e8a91e8b0611c3e8413842182c67d3ea3d Mon Sep 17 00:00:00 2001
From: Andrew <saintruler@gmail.com>
Date: Fri, 27 Nov 2020 18:06:40 +0400
Subject: Changed String to Text everywhere

---
 Web/Views.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'Web/Views.hs')

diff --git a/Web/Views.hs b/Web/Views.hs
index b6ae013..6619d09 100644
--- a/Web/Views.hs
+++ b/Web/Views.hs
@@ -1,20 +1,25 @@
 module Web.Views where
 
 import System.IO
+import qualified Data.Text as T
+import Data.Text (Text)
 
 import Web.Request
 import Web.Response
 
 indexGet (Request query url method) =
-  return $ HtmlResponse 200 "<strong>index</strong>"
+  return $ HtmlResponse 200 (T.pack "<strong>index</strong>")
 
 helloGet req =
-  return $ HtmlResponse 200 "<i>hello</i>"
+  return $ HtmlResponse 200 (T.pack "<i>hello</i>")
 
+renderTemplate :: String -> IO Response
 renderTemplate name = do
   template <- readTemplate name
   return $ HtmlResponse 200 template
 
+readTemplate :: String -> IO Text
 readTemplate name = do
   handle <- openFile ("templates/" ++ name) ReadMode
-  hGetContents handle
\ No newline at end of file
+  contents <- hGetContents handle
+  return $ T.pack contents
-- 
cgit v1.2.3