From 46d7f5d2d88a62ed2c77514c33d97e25d737881c Mon Sep 17 00:00:00 2001 From: Andrew Date: Fri, 27 Nov 2020 20:51:21 +0400 Subject: Added networking --- Views.hs | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 Views.hs (limited to 'Views.hs') diff --git a/Views.hs b/Views.hs new file mode 100644 index 0000000..54cd844 --- /dev/null +++ b/Views.hs @@ -0,0 +1,25 @@ +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 -- cgit v1.2.3