buildCommentForest :: [Entity Comment] -- root comments
                   -> [Entity Comment] -- replies comments
                   -> Forest (Entity Comment)
buildCommentForest roots replies = map (flip buildCommentTree replies) roots
buildCommentForest :: [Entity Comment] -- root comments
                   -> [Entity Comment] -- replies comments
                   -> Forest (Entity Comment)
buildCommentForest roots replies = map (flip buildCommentTree replies) roots
buildCommentForest roots replies = map (flip buildCommentTree replies) roots