module Text.Layout.Table.Spec.RowGroup where
import Text.Layout.Table.Spec.Util
newtype RowGroup a
= RowGroup
{ RowGroup a -> [Row a]
rows :: [Row a]
}
rowsG :: [Row a] -> RowGroup a
rowsG :: [Row a] -> RowGroup a
rowsG = [Row a] -> RowGroup a
forall a. [Row a] -> RowGroup a
RowGroup
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]
: [])