From fb7e450d917ec87202f9de019238b78c1b645328 Mon Sep 17 00:00:00 2001
From: Andrew <saintruler@gmail.com>
Date: Fri, 27 Nov 2020 17:40:04 +0400
Subject: Added basic HTTP types

---
 Views.hs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'Views.hs')

diff --git a/Views.hs b/Views.hs
index 47d81e5..9d2594e 100644
--- a/Views.hs
+++ b/Views.hs
@@ -1,5 +1,7 @@
 module Views where
 
+import System.IO
+
 import Request
 import Response
 
@@ -7,4 +9,12 @@ indexGet (Request query url method) =
   return $ HtmlResponse 200 "<strong>index</strong>"
 
 helloGet req =
-  return $ HtmlResponse 200 "<i>hello</i>"
\ No newline at end of file
+  return $ HtmlResponse 200 "<i>hello</i>"
+
+renderTemplate name = do
+  template <- readTemplate name
+  return $ HtmlResponse 200 template
+
+readTemplate name = do
+  handle <- openFile ("templates/" ++ name) ReadMode
+  hGetContents handle
\ No newline at end of file
-- 
cgit v1.2.3