From f95d9bbde51ee26468177b2d34c669d9689fbea4 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 30 May 2025 02:55:35 -0400 Subject: web: Big refactor part 2 --- fig-web/src/Fig/Web/Module/Gizmo.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'fig-web/src/Fig/Web/Module/Gizmo.hs') diff --git a/fig-web/src/Fig/Web/Module/Gizmo.hs b/fig-web/src/Fig/Web/Module/Gizmo.hs index 8112670..0267ab6 100644 --- a/fig-web/src/Fig/Web/Module/Gizmo.hs +++ b/fig-web/src/Fig/Web/Module/Gizmo.hs @@ -16,7 +16,7 @@ import Fig.Web.Utils import Fig.Web.Types import qualified Fig.Web.DB as DB -public :: Module +public :: PublicModule public a = do onGet "/api/gizmo" do buf <- queryParam "buf" @@ -29,7 +29,7 @@ public a = do gizmos <- maybe [] (fmap decodeUtf8) <$> DB.hkeys a.db "gizmos" respondText $ Text.unlines gizmos -publicWebsockets :: Websockets +publicWebsockets :: PublicWebsockets publicWebsockets a = [ ( "/api/gizmo/events", \conn -> do c <- Chan.dupChan a.channels.gizmo @@ -39,7 +39,7 @@ publicWebsockets a = ) ] -publicBusEvents :: BusEvents +publicBusEvents :: PublicBusEvents publicBusEvents a = [ ("gizmo buffer update", \d -> do let dstr = decodeUtf8 d -- cgit v1.2.3