From a0e8e5a91d15ed8c79f4a1b5914d3a6242c0cbd3 Mon Sep 17 00:00:00 2001 From: Andrew Guschin Date: Sun, 5 Mar 2023 13:45:37 +0400 Subject: Migrated project to cabal --- app/Views.hs | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 app/Views.hs (limited to 'app/Views.hs') diff --git a/app/Views.hs b/app/Views.hs new file mode 100644 index 0000000..54cd844 --- /dev/null +++ b/app/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