From 31d0954b9e51a0ca9071a92637e3a2e86660fe3e Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Thu, 8 Aug 2024 21:52:29 -0400
Subject: Auth for frontend

---
 fig-frontend/src/Fig/Frontend.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'fig-frontend/src/Fig/Frontend.hs')

diff --git a/fig-frontend/src/Fig/Frontend.hs b/fig-frontend/src/Fig/Frontend.hs
index 6efa2a1..0f347de 100644
--- a/fig-frontend/src/Fig/Frontend.hs
+++ b/fig-frontend/src/Fig/Frontend.hs
@@ -53,7 +53,6 @@ server cfg busAddr = do
             | ev == [sexp|(monitor twitch stream online)|] -> do
                 let live = mapMaybe (\case SExprString s -> Just s; _ -> Nothing) rest
                 let new = Set.fromList live 
-                log $ "Streams online: " <> tshow live
                 old <- MVar.swapMVar currentlyLive new
                 let online = Set.difference new old
                 let offline = Set.difference old new
@@ -74,6 +73,7 @@ app cfg cmds liveEvents currentlyLive = do
   st <- stateRef
   Sc.scottyApp do
     Sc.middleware $ Wai.Static.staticPolicy $ Wai.Static.addBase cfg.assetPath
+    Sc.get "/" $ Sc.redirect "/index.html"
     Sc.get "/api/check" $ authed cfg \auth -> do
       Sc.json @[Text] [auth.id, auth.name]
     Sc.put "/api/buffer" do
-- 
cgit v1.2.3