deleteTagsDB :: CommentId -> [Internal.TagName] -> DB ()
deleteTagsDB comment_id tags =
    forM_ tags $ \tag -> do
        tag_ids <- fetchTagIdsDB tag
        forM_ tag_ids $ deleteTagDB comment_id
deleteTagsDB :: CommentId -> [Internal.TagName] -> DB ()
deleteTagsDB comment_id tags =
    forM_ tags $ \tag -> do
        tag_ids <- fetchTagIdsDB tag
        forM_ tag_ids $ deleteTagDB comment_id
deleteTagsDB comment_id tags =
    forM_ tags $ \tag -> do
        tag_ids <- fetchTagIdsDB tag
        forM_ tag_ids $ deleteTagDB comment_id