summaryrefslogtreecommitdiff
path: root/Views.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Views.hs')
-rw-r--r--Views.hs20
1 files changed, 0 insertions, 20 deletions
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 "<strong>index</strong>"
-
-helloGet req =
- 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