ws: tighten the dispatcher public API

This commit tightens up the public API exposed by the Dispatcher,
for similar reasons as we had for the CentralExchange.

src/Gargantext/Core/AsyncUpdates/Dispatcher.hs

@@ -16,7 +16,9 @@ https://dev.sub.gargantext.org/#/share/Notes/187918
 
 {-# LANGUAGE TypeOperators #-}
     
-module Gargantext.Core.AsyncUpdates.Dispatcher where
+module Gargantext.Core.AsyncUpdates.Dispatcher (
+  dispatcher
+  ) where
 
 import Control.Concurrent.Async qualified as Async
 import Control.Concurrent.STM.TChan qualified as TChan
@@ -135,8 +137,8 @@ sendDataMessageThrottled (conn, msg) =
 -- CETypes.CEMessage.
 -- For example, we can add CEMessage.Broadcast to propagate a
 -- notification to all connections.
-filterCEMessageSubs :: CETypes.CEMessage -> [Subscription] -> [Subscription]
-filterCEMessageSubs ceMessage subscriptions = filter (ceMessageSubPred ceMessage) subscriptions
+_filterCEMessageSubs :: CETypes.CEMessage -> [Subscription] -> [Subscription]
+_filterCEMessageSubs ceMessage subscriptions = filter (ceMessageSubPred ceMessage) subscriptions
 
 ceMessageSubPred :: CETypes.CEMessage -> Subscription -> Bool
 ceMessageSubPred (CETypes.UpdateJobProgress js) (Subscription { s_topic }) =