notifyBearyChat :: (MonadIO m, MonadThrow m) => IncomingRequest -> AppM m IncomingResponse
notifyBearyChat req = do
  bc <- getBearyChat
  sendRequest bc req
notifyBearyChat :: (MonadIO m, MonadThrow m) => IncomingRequest -> AppM m IncomingResponse
notifyBearyChat req = do
  bc <- getBearyChat
  sendRequest bc req
notifyBearyChat req = do
  bc <- getBearyChat
  sendRequest bc req