Added basic HTTP types

1 files changed, 11 insertions, 1 deletions

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