fetchTagNamesDB :: CommentId -> DB [Internal.TagName]
fetchTagNamesDB comment_id =
    fmap (map Internal.TagName . unwrapValues) $
    select $ from $ \(t `InnerJoin` ct) -> do
        on_ $ t ^. TagId ==. ct ^. CommentTagTag
        where_ $ ct ^. CommentTagComment ==. val comment_id
        return $ t ^. TagName
fetchTagNamesDB :: CommentId -> DB [Internal.TagName]
fetchTagNamesDB comment_id =
    fmap (map Internal.TagName . unwrapValues) $
    select $ from $ \(t `InnerJoin` ct) -> do
        on_ $ t ^. TagId ==. ct ^. CommentTagTag
        where_ $ ct ^. CommentTagComment ==. val comment_id
        return $ t ^. TagName
fetchTagNamesDB comment_id =
    fmap (map Internal.TagName . unwrapValues) $
    select $ from $ \(t `InnerJoin` ct) -> do
        on_ $ t ^. TagId ==. ct ^. CommentTagTag
        where_ $ ct ^. CommentTagComment ==. val comment_id
        return $ t ^. TagName