From 81cf94523f5a794e5b0c69dbd9a94619135a23c7 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Wed, 4 Dec 2024 15:52:52 -0500 Subject: Prune unused stuff This was all dead weight, just delete it and move on. --- Biz/Que/Site.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'Biz/Que/Site.hs') diff --git a/Biz/Que/Site.hs b/Biz/Que/Site.hs index 963927d..f4e4a9c 100644 --- a/Biz/Que/Site.hs +++ b/Biz/Que/Site.hs @@ -42,7 +42,6 @@ move args = do client = src "Client.py", quescripts = src "Quescripts.md", style = src "Style.css", - apidocs = src "Apidocs.md", tutorial = src "Tutorial.md" } where @@ -82,8 +81,7 @@ data Sources = Sources quescripts :: FilePath, client :: FilePath, style :: FilePath, - tutorial :: FilePath, - apidocs :: FilePath + tutorial :: FilePath } type Namespace = Text @@ -103,8 +101,7 @@ run key ns Sources {..} = Async.runConcurrently actions |> void [ toHtml index +> serve key ns "index" |> forever, toHtml quescripts +> serve key ns "quescripts" |> forever, BS.readFile client +> serve key ns "client" |> forever, - toHtml tutorial +> serve key ns "tutorial" |> forever, - toHtml apidocs +> serve key ns "apidocs" |> forever + toHtml tutorial +> serve key ns "tutorial" |> forever ] toHtml :: FilePath -> IO ByteString toHtml md = -- cgit v1.2.3