unsafeLiftGrouped :: ([NonEmpty (a, b)] -> [NonEmpty (c, d)]) -> RightGrouped a b -> RightGrouped c d
unsafeLiftGrouped f = RightGrouped . f . unRightGrouped
unsafeLiftGrouped :: ([NonEmpty (a, b)] -> [NonEmpty (c, d)]) -> RightGrouped a b -> RightGrouped c d
unsafeLiftGrouped f = RightGrouped . f . unRightGrouped
unsafeLiftGrouped f = RightGrouped . f . unRightGrouped