sertTagsDB :: UserId -> CommentId -> [Internal.TagName] -> DB ()
insertTagsDB user_id comment_id tags =
    forM_ tags $ \(Internal.TagName tag) -> do
        tag_id <- either entityKey id <$> insertBy (Tag tag)
        insert_ $ CommentTag comment_id tag_id user_id 1


insertTagsDB :: UserId -> CommentId -> [Internal.TagName] -> DB ()
insertTagsDB user_id comment_id tags =
    forM_ tags $ \(Internal.TagName tag) -> do
        tag_id <- either entityKey id <$> insertBy (Tag tag)
        insert_ $ CommentTag comment_id tag_id user_id 1
insertTagsDB user_id comment_id tags =
    forM_ tags $ \(Internal.TagName tag) -> do
        tag_id <- either entityKey id <$> insertBy (Tag tag)
        insert_ $ CommentTag comment_id tag_id user_id 1