emit
    :: (ToJSON event, EventName name, MonadReader S.Socket m, MonadIO m)
    => name -> event -> m ()
emit eventName =
    S.emit $ toName eventName
emit
    :: (ToJSON event, EventName name, MonadReader S.Socket m, MonadIO m)
    => name -> event -> m ()
emit eventName =
    S.emit $ toName eventName
emit eventName =
    S.emit $ toName eventName