module Text.Layout.Table.Spec.HeaderSpec where
import Data.Default.Class
import Text.Layout.Table.Spec.HeaderColSpec
data
= [HeaderColSpec] [String]
| NoneHS
instance Default HeaderSpec where
def :: HeaderSpec
def = HeaderSpec
NoneHS
fullH :: [HeaderColSpec] -> [String] -> HeaderSpec
fullH :: [HeaderColSpec] -> [String] -> HeaderSpec
fullH = [HeaderColSpec] -> [String] -> HeaderSpec
HeaderHS
titlesH :: [String] -> HeaderSpec
titlesH :: [String] -> HeaderSpec
titlesH = [HeaderColSpec] -> [String] -> HeaderSpec
fullH ([HeaderColSpec] -> [String] -> HeaderSpec)
-> [HeaderColSpec] -> [String] -> HeaderSpec
forall a b. (a -> b) -> a -> b
$ HeaderColSpec -> [HeaderColSpec]
forall a. a -> [a]
repeat HeaderColSpec
forall a. Default a => a
def