aboutsummaryrefslogtreecommitdiff
path: root/server/lib/Cafp
diff options
context:
space:
mode:
authorJasper Van der Jeugt2020-07-29 16:17:17 +0200
committerJasper Van der Jeugt2020-07-29 16:17:17 +0200
commit780527946548c68bfcfc4d8a99abf06b66cf23c1 (patch)
tree1479ab0ceb1de8016dff7ff462cd565c452a4243 /server/lib/Cafp
parent72b1de1a28c23cf694ff5f982f0f637afd4ba5bc (diff)
Stub client
Diffstat (limited to 'server/lib/Cafp')
-rw-r--r--server/lib/Cafp/Main/Server.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/server/lib/Cafp/Main/Server.hs b/server/lib/Cafp/Main/Server.hs
index a2561a3..5de7403 100644
--- a/server/lib/Cafp/Main/Server.hs
+++ b/server/lib/Cafp/Main/Server.hs
@@ -26,4 +26,5 @@ main = Scotty.scotty 3000 $ do
roomId <- Scotty.param "id"
when (T.length roomId < 6) $
Scotty.raise "Room ID should be at least 6 characters"
- Scotty.html $ "<h1>Scotty, " <> TL.fromStrict roomId <> " me up!</h1>"
+ Scotty.setHeader "Content-Type" "text/html"
+ Scotty.file "assets/client.html"