From: sabadev <saba@sabadev.xyz>
Date: Wed, 17 Mar 2021 18:56:47 +0000 (-0400)
Subject: Added TODO items.
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=e0f0bc083fbcdceda0ee02d0aa9b5700821c5997;p=website.git

Added TODO items.
---

diff --git a/src/Server.hs b/src/Server.hs
index 6080973..bc53f56 100644
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -22,6 +22,8 @@ apiProxy = Proxy
 
 type Api = Page :<|> Themes
 type Page = MainPage :<|> BlogPost
+-- TODO Turn MainPage into another BlogPost, and instead have some index.md file that I can look for.
+-- Perhaps have a config.json file to specify the index.md file and the static directory location.
 type MainPage = ThemeParam :> Get '[HTML] (Html ())
 type BlogPost = "blog" :> ThemeParam :> Capture "id" BlogId :> Get '[HTML] (Html ())
 type Themes = DarkTheme :<|> LightTheme
@@ -30,6 +32,7 @@ type LightTheme = "light" :> Get '[CSS] C.Css
 type ThemeParam = QueryParam "light" Bool
 
 type BlogId = FilePath
+-- TODO Use a ReaderT monad to insert this value into functions instead of passing it in explicitly.
 type UseLightTheme = Maybe Bool
 
 api :: Server Api