diff options
Diffstat (limited to 'Views.hs')
| -rw-r--r-- | Views.hs | 20 |
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 |