Added basic HTTP types

1 files changed, 5 insertions, 14 deletions

diff --git a/Main.hs b/Main.hs
index b2c6de1..ced8f22 100644
--- a/Main.hs
+++ b/Main.hs
@@ -1,24 +1,15 @@
 module Main where
 
-import System.IO
-
 import Response
 import Request
 import Router
 import Views
 import Utils
+import Http
 
-renderTemplate name = do
-  template <- readTemplate name
-  return $ HtmlResponse 200 template
-
-readTemplate name = do
-  handle <- openFile ("templates/" ++ name) ReadMode
-  hGetContents handle
-
-table = [ Route indexGet "/" "GET"
-        , Route helloGet "/hello" "GET" ]
+table = [ Route indexGet "/" GET
+        , Route helloGet "/hello" GET ]
 
 main = do
-  response <- resolve table (Request "query" "/jopa" "GET")
-  print $ getContent response
\ No newline at end of file
+  response <- resolve table (Request [] "/hello" GET)
+  print $ response
\ No newline at end of file