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 --- Views.hs | 25 ------------------------- 1 file changed, 25 deletions(-) delete mode 100644 Views.hs (limited to 'Views.hs') 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 -- cgit v1.2.3