tchCommentTagCommentTagsDB :: CommentId -> TagId -> DB [CommentTag]
fetchCommentTagCommentTagsDB comment_id tag_id = fmap (map entityVal) $
    select $
    from $ \ct -> do
    where_ $
        ct ^. CommentTagComment ==. val comment_id &&.
        ct ^. CommentTagTag ==. val tag_id
    return ct


fetchCommentTagCommentTagsDB :: CommentId -> TagId -> DB [CommentTag]
fetchCommentTagCommentTagsDB comment_id tag_id = fmap (map entityVal) $
    select $
    from $ \ct -> do
    where_ $
        ct ^. CommentTagComment ==. val comment_id &&.
        ct ^. CommentTagTag ==. val tag_id
    return ct
fetchCommentTagCommentTagsDB comment_id tag_id = fmap (map entityVal) $
    select $
    from $ \ct -> do
    where_ $
        ct ^. CommentTagComment ==. val comment_id &&.
        ct ^. CommentTagTag ==. val tag_id
    return ct