groupRight :: Eq a => [(a, b)] -> RightGrouped a b
groupRight = RightGrouped <$> NE.groupBy (\a b -> fst a == fst b)
groupRight :: Eq a => [(a, b)] -> RightGrouped a b
groupRight = RightGrouped <$> NE.groupBy (\a b -> fst a == fst b)
groupRight = RightGrouped <$> NE.groupBy (\a b -> fst a == fst b)