diff options
| author | LLLL Colonq <llll@colonq> | 2024-08-08 21:52:29 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-08-08 21:52:29 -0400 |
| commit | 31d0954b9e51a0ca9071a92637e3a2e86660fe3e (patch) | |
| tree | b8cfa0aecb709991c9ca8a9fca572814b74dac74 /fig-frontend/src/Fig/Frontend.hs | |
| parent | 2482292d033013ff37bbd4cdac00632b3dc70323 (diff) | |
Auth for frontend
Diffstat (limited to 'fig-frontend/src/Fig/Frontend.hs')
| -rw-r--r-- | fig-frontend/src/Fig/Frontend.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |