unGroupRight :: RightGrouped a b -> [(a, b)]
unGroupRight (RightGrouped xs) = mconcat $ NE.toList <$> xs
unGroupRight :: RightGrouped a b -> [(a, b)]
unGroupRight (RightGrouped xs) = mconcat $ NE.toList <$> xs
unGroupRight (RightGrouped xs) = mconcat $ NE.toList <$> xs