commentIsFlagged :: CommentId -> DB Bool
commentIsFlagged =
    fmap (maybe False (const True)) . getBy . UniqueCommentFlagging
commentIsFlagged :: CommentId -> DB Bool
commentIsFlagged =
    fmap (maybe False (const True)) . getBy . UniqueCommentFlagging
commentIsFlagged =
    fmap (maybe False (const True)) . getBy . UniqueCommentFlagging