From f95d9bbde51ee26468177b2d34c669d9689fbea4 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Fri, 30 May 2025 02:55:35 -0400
Subject: web: Big refactor part 2

---
 fig-web/src/Fig/Web/Module/Circle.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'fig-web/src/Fig/Web/Module/Circle.hs')

diff --git a/fig-web/src/Fig/Web/Module/Circle.hs b/fig-web/src/Fig/Web/Module/Circle.hs
index 5c21477..5db59fb 100644
--- a/fig-web/src/Fig/Web/Module/Circle.hs
+++ b/fig-web/src/Fig/Web/Module/Circle.hs
@@ -18,13 +18,13 @@ import Fig.Utils.SExpr
 import Fig.Web.Utils
 import Fig.Web.Types
 
-public :: Module
+public :: PublicModule
 public a = do
   onGet "/api/circle" do
     live <- liftIO $ MVar.readMVar a.globals.currentlyLive
     respondText $ pretty . SExprList @Void $ SExprString <$> Set.toList live
 
-publicWebsockets :: Websockets
+publicWebsockets :: PublicWebsockets
 publicWebsockets a =
   [ ( "/api/circle/events", \conn -> do
         c <- Chan.dupChan a.channels.live
@@ -44,11 +44,11 @@ publicWebsockets a =
     )
   ]
 
-publicBusEvents :: BusEvents
+publicBusEvents :: PublicBusEvents
 publicBusEvents a =
   [ ("monitor twitch stream online", \d -> do
         let dstr = decodeUtf8 d
-        let live = Text.splitOn " " dstr
+        let live = Text.words dstr
         let new = Set.fromList live 
         old <- MVar.swapMVar a.globals.currentlyLive new
         let online = Set.difference new old
-- 
cgit v1.2.3