diff options
author | Ben Sima <ben@bsima.me> | 2024-12-04 15:52:52 -0500 |
---|---|---|
committer | Ben Sima <ben@bsima.me> | 2024-12-21 10:08:05 -0500 |
commit | 81cf94523f5a794e5b0c69dbd9a94619135a23c7 (patch) | |
tree | 22544f9d741827ebfe65f73f0202b2b095a09cf8 /Biz/Que/Site.hs | |
parent | 47c48abf836f5918120c0550c57d4eda32d3f10e (diff) |
Prune unused stuff
This was all dead weight, just delete it and move on.
Diffstat (limited to 'Biz/Que/Site.hs')
-rw-r--r-- | Biz/Que/Site.hs | 7 |
1 files changed, 2 insertions, 5 deletions
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 = |