emitJSON
    :: (EventName name, MonadReader S.Socket m, MonadIO m)
    => name -> Array -> m ()
emitJSON eventName = S.emitJSON (toName eventName)
emitJSON
    :: (EventName name, MonadReader S.Socket m, MonadIO m)
    => name -> Array -> m ()
emitJSON eventName = S.emitJSON (toName eventName)
emitJSON eventName = S.emitJSON (toName eventName)