diff options
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 = |