From 68c2394ba51dac0d41e790447968468951434070 Mon Sep 17 00:00:00 2001
From: sabadev <saba@sabadev.xyz>
Date: Wed, 17 Mar 2021 07:14:00 -0400
Subject: [PATCH] Removed the test page.

---
 src/Server.hs | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/Server.hs b/src/Server.hs
index cf0a6b8..f9506fb 100644
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -19,18 +19,17 @@ app = serve apiProxy api
 apiProxy :: Proxy Api
 apiProxy = Proxy
 
-type Api = MainPage :<|> BlogPost :<|> Themes :<|> TestPage
+type Api = MainPage :<|> BlogPost :<|> Themes
 type MainPage = Get '[HTML] (Html ())
 type BlogPost = "blog" :> Capture "id" BlogId :> Get '[HTML] (Html ())
 type Themes = DarkTheme :<|> LightTheme
 type DarkTheme = "dark" :> Get '[CSS] C.Css
 type LightTheme = "light" :> Get '[CSS] C.Css
-type TestPage = "test" :> Get '[HTML] T.Text
 
 type BlogId = FilePath
 
 api :: Server Api
-api = mainPage :<|> blogPost :<|> themes :<|> testPage
+api = mainPage :<|> blogPost :<|> themes
 
 mainPage :: Handler (Html ())
 mainPage = htmlContainer $ h1_ $ toHtml siteTitle
@@ -83,9 +82,6 @@ blogLink = pure . (<>) "/blog/" <=< T.stripSuffix markdownExtension
 siteTitle :: T.Text
 siteTitle = "My Site"
 
-testPage :: Handler T.Text
-testPage = liftIO getCurrentDirectory >>= pure . T.pack
-
 staticPath :: FilePath
 staticPath = "static/"
 
-- 
2.20.1