stApprovedCommentDB
    :: UserId
    -> Maybe CommentId
    -> DiscussionId
    -> Markdown
    -> Visibility
    -> Language
    -> SDB (Either Text CommentId)
postApprovedCommentDB = postComment insertApprovedCommentDB


postApprovedCommentDB
    :: UserId
    -> Maybe CommentId
    -> DiscussionId
    -> Markdown
    -> Visibility
    -> Language
    -> SDB (Either Text CommentId)
postApprovedCommentDB = postComment insertApprovedCommentDB
postApprovedCommentDB = postComment insertApprovedCommentDB