From e0f0bc083fbcdceda0ee02d0aa9b5700821c5997 Mon Sep 17 00:00:00 2001 From: sabadev Date: Wed, 17 Mar 2021 14:56:47 -0400 Subject: [PATCH] Added TODO items. --- src/Server.hs | 3 +++ 1 file changed, 3 insertions(+) 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 -- 2.20.1