From fb7e450d917ec87202f9de019238b78c1b645328 Mon Sep 17 00:00:00 2001 From: Andrew Date: Fri, 27 Nov 2020 17:40:04 +0400 Subject: Added basic HTTP types --- Main.hs | 19 +++++-------------- 1 file changed, 5 insertions(+), 14 deletions(-) (limited to 'Main.hs') 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 -- cgit v1.2.3