From b250aa81e332c612551803d0d156246b853b3fd3 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Fri, 14 Aug 2020 10:49:36 +0200
Subject: Actually list rooms

---
 server/lib/Uplcg/Main/Server.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'server/lib/Uplcg/Main/Server.hs')

diff --git a/server/lib/Uplcg/Main/Server.hs b/server/lib/Uplcg/Main/Server.hs
index 72d9614..bd2b3ec 100644
--- a/server/lib/Uplcg/Main/Server.hs
+++ b/server/lib/Uplcg/Main/Server.hs
@@ -23,6 +23,7 @@ import           Data.String                    (fromString)
 import qualified Data.Text                      as T
 import qualified Data.Text.Encoding             as T
 import qualified Data.Text.IO                   as T
+import qualified Data.Text.Lazy                 as TL
 import qualified Data.Vector                    as V
 import qualified Network.Wai                    as Wai
 import qualified Network.Wai.Handler.Warp       as Warp
@@ -82,6 +83,10 @@ parseRoomId txt
 
 scottyApp :: Server -> IO Wai.Application
 scottyApp server = Scotty.scottyApp $ do
+    Scotty.get "/" $
+        Scotty.redirect $ TL.fromStrict $
+            BaseUrl.render (serverBaseUrl server) <> "/rooms"
+
     Scotty.get "/rooms" $ do
         rooms <- liftIO . MVar.readMVar $ serverRooms server
         Scotty.html . renderHtml . Views.rooms (serverBaseUrl server) $
-- 
cgit v1.2.3