From 19f5402bec9f6346463b83536cc22d7f4525bc18 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 26 Oct 2020 17:52:56 -0400
Subject: Capitalize rest of files

---
 Que/Host.hs  |  2 +-
 Que/Site.hs  | 16 ++++++++--------
 Que/Site.nix | 12 ++++++------
 3 files changed, 15 insertions(+), 15 deletions(-)

(limited to 'Que')

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
-- 
cgit v1.2.3