insertApprovedCommentDB
    :: UTCTime
    -> DiscussionId
    -> Maybe CommentId
    -> UserId
    -> Markdown
    -> Int
    -> Visibility
    -> Language
    -> SDB CommentId
insertApprovedCommentDB
        created_ts
        discussion_id
        mparent_id
        user_id =

    insertCommentDB
        (Just created_ts)
        (Just user_id)
        ECommentPosted
        created_ts
        discussion_id
        mparent_id
        user_id
insertApprovedCommentDB
    :: UTCTime
    -> DiscussionId
    -> Maybe CommentId
    -> UserId
    -> Markdown
    -> Int
    -> Visibility
    -> Language
    -> SDB CommentId
insertApprovedCommentDB
        created_ts
        discussion_id
        mparent_id
        user_id =

    insertCommentDB
        (Just created_ts)
        (Just user_id)
        ECommentPosted
        created_ts
        discussion_id
        mparent_id
        user_id
insertApprovedCommentDB
        created_ts
        discussion_id
        mparent_id
        user_id =

    insertCommentDB
        (Just created_ts)
        (Just user_id)
        ECommentPosted
        created_ts
        discussion_id
        mparent_id
        user_id