diff options
Diffstat (limited to 'Que')
| -rw-r--r-- | Que/Host.hs | 2 | ||||
| -rw-r--r-- | Que/Site.hs | 16 | ||||
| -rw-r--r-- | Que/Site.nix | 12 |
3 files changed, 15 insertions, 15 deletions
diff --git a/Que/Host.hs b/Que/Host.hs index 5b51dba..3303709 100644 --- a/Que/Host.hs +++ b/Que/Host.hs @@ -60,7 +60,7 @@ main = Exception.bracket startup shutdown <| uncurry Warp.run putText "Que.Host" putText <| "port: " <> (show <| quePort c) putText <| "skey: " <> (show <| queSkey c) - return (port c, waiapp) + return (quePort c, waiapp) shutdown :: a -> IO a shutdown = pure . identity diff --git a/Que/Site.hs b/Que/Site.hs index 2b35956..794dd04 100644 --- a/Que/Site.hs +++ b/Que/Site.hs @@ -39,14 +39,14 @@ main = do _ -> Exit.die "usage: que-website <srcdir> [namespace]" mKey <- getKey ns putText <| "serving " <> Text.pack src <> " at " <> ns - run mKey ns <| - Sources - { index = src </> "index.md", - client = src </> "client.py", - quescripts = src </> "quescripts.md", - style = src </> "style.css", - apidocs = src </> "apidocs.md", - tutorial = src </> "tutorial.md" + run mKey ns + <| Sources + { index = src </> "Index.md", + client = src </> "Client.py", + quescripts = src </> "Quescripts.md", + style = src </> "Style.css", + apidocs = src </> "Apidocs.md", + tutorial = src </> "Tutorial.md" } getKey :: Namespace -> IO (Maybe Key) diff --git a/Que/Site.nix b/Que/Site.nix index 6a24d9d..685b3a6 100644 --- a/Que/Site.nix +++ b/Que/Site.nix @@ -12,12 +12,12 @@ let name = "que-website-static"; installPhase = '' mkdir -p $out - cp ${./apidocs.md} $out/apidocs.md - cp ${./index.md} $out/index.md - cp ${./quescripts.md} $out/quescripts.md - cp ${./style.css} $out/style.css - cp ${./tutorial.md} $out/tutorial.md - cp ${./client.py} $out/client.py + cp ${./Apidocs.md} $out/Apidocs.md + cp ${./Index.md} $out/Index.md + cp ${./Quescripts.md} $out/Quescripts.md + cp ${./Style.css} $out/Style.css + cp ${./Tutorial.md} $out/Tutorial.md + cp ${./Client.py} $out/Client.py ''; }; in |