From 1cc6cfef971ccb3c1d70f2a5570e445556e4f6fb Mon Sep 17 00:00:00 2001 From: Andrew Date: Fri, 27 Nov 2020 17:50:54 +0400 Subject: Changed directory structure --- Views.hs | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100644 Views.hs (limited to 'Views.hs') diff --git a/Views.hs b/Views.hs deleted file mode 100644 index 9d2594e..0000000 --- a/Views.hs +++ /dev/null @@ -1,20 +0,0 @@ -module Views where - -import System.IO - -import Request -import Response - -indexGet (Request query url method) = - return $ HtmlResponse 200 "index" - -helloGet req = - return $ HtmlResponse 200 "hello" - -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