From 780527946548c68bfcfc4d8a99abf06b66cf23c1 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Wed, 29 Jul 2020 16:17:17 +0200 Subject: Stub client --- server/lib/Cafp/Main/Server.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'server') 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 $ "

Scotty, " <> TL.fromStrict roomId <> " me up!

" + Scotty.setHeader "Content-Type" "text/html" + Scotty.file "assets/client.html" -- cgit v1.2.3