-- logDebug . sformat ("emit "%stext) $ toName eventName

emitTo
    :: (ToJSON event, EventName name, MonadIO m)
    => S.Socket -> name -> event -> m ()
emitTo sock eventName = S.emitTo sock (toName eventName)
emitTo
    :: (ToJSON event, EventName name, MonadIO m)
    => S.Socket -> name -> event -> m ()
emitTo sock eventName = S.emitTo sock (toName eventName)
emitTo sock eventName = S.emitTo sock (toName eventName)