upvotePost :: MonadIO m => Options -> Post -> m (EitherR ())
upvotePost opts = voteOnPost opts Upvote
upvotePost :: MonadIO m => Options -> Post -> m (EitherR ())
upvotePost opts = voteOnPost opts Upvote
upvotePost opts = voteOnPost opts Upvote