diff options
Diffstat (limited to 'Views.hs')
| -rw-r--r-- | Views.hs | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/Views.hs b/Views.hs deleted file mode 100644 index 54cd844..0000000 --- a/Views.hs +++ /dev/null @@ -1,25 +0,0 @@ -module Views where - -import System.IO -import qualified Data.Text as T -import Data.Text (Text) - -import Web.Request -import Web.Response - -indexGet :: Request -> IO Response -indexGet req = renderTemplate "index.html" - -helloGet :: Request -> IO Response -helloGet req = renderTemplate "hello.html" - -renderTemplate :: String -> IO Response -renderTemplate name = do - template <- readTemplate name - return $ HtmlResponse 200 template - -readTemplate :: String -> IO Text -readTemplate name = do - handle <- openFile ("templates/" ++ name) ReadMode - contents <- hGetContents handle - return $ T.pack contents |