downvotePost :: MonadIO m => Options -> Post -> m (EitherR ())
downvotePost opts = voteOnPost opts Downvote
downvotePost :: MonadIO m => Options -> Post -> m (EitherR ())
downvotePost opts = voteOnPost opts Downvote
downvotePost opts = voteOnPost opts Downvote