data TableHead = TableHead {
  tableHeadNames :: [TableColumnName]
} deriving Eq
