summaryrefslogtreecommitdiff
path: root/fig-web/src/Fig/Web/Public.hs
diff options
context:
space:
mode:
Diffstat (limited to 'fig-web/src/Fig/Web/Public.hs')
-rw-r--r--fig-web/src/Fig/Web/Public.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/fig-web/src/Fig/Web/Public.hs b/fig-web/src/Fig/Web/Public.hs
index 89602bb..975a161 100644
--- a/fig-web/src/Fig/Web/Public.hs
+++ b/fig-web/src/Fig/Web/Public.hs
@@ -27,6 +27,7 @@ import qualified Fig.Web.Module.Shader as Shader
import qualified Fig.Web.Module.HLS as HLS
import qualified Fig.Web.Module.TCG as TCG
import qualified Fig.Web.Module.Debt as Debt
+import qualified Fig.Web.Module.ShindigsSorting as ShindigsSorting
allBusEvents :: PublicModuleArgs -> BusEventHandlers
allBusEvents args = busEvents . mconcat $ fmap ($ args)
@@ -98,10 +99,12 @@ app args = do
HLS.public args
TCG.public args
Debt.public args
+ ShindigsSorting.public args
websocket $ mconcat
[ Gizmo.publicWebsockets args
, Circle.publicWebsockets args
, Model.publicWebsockets args
+ , ShindigsSorting.publicWebsockets args
]
Sc.notFound do
respondText "not found"