module Text.Layout.Table.Spec.RowGroup where

import Text.Layout.Table.Spec.Util

-- | Groups rows together which should not be visually seperated from each other.
newtype RowGroup a
    = RowGroup
    { RowGroup a -> [Row a]
rows :: [Row a]
    }

-- | Group the given rows together.
rowsG :: [Row a] -> RowGroup a
rowsG :: [Row a] -> RowGroup a
rowsG = [Row a] -> RowGroup a
forall a. [Row a] -> RowGroup a
RowGroup

-- | Make a group of a single row.
rowG :: Row a -> RowGroup a
rowG :: Row a -> RowGroup a
rowG = [Row a] -> RowGroup a
forall a. [Row a] -> RowGroup a
RowGroup ([Row a] -> RowGroup a)
-> (Row a -> [Row a]) -> Row a -> RowGroup a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Row a -> [Row a] -> [Row a]
forall a. a -> [a] -> [a]
: [])