table-layout-0.9.0.0: src/Text/Layout/Table/Spec/RowGroup.hs

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
    { rows :: [Row a]
    }

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

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