ppTableDefinition :: TableDefinition -> Doc
ppTableDefinition table
  = text "table" $$
    nest 2 (vcat xs) $$
    text "endtable"
  where
    xs = case table of
           CombinationalTable entries -> map ppCombinationalEntry entries
           SequentialTable entries    -> map ppSequentialEntry entries
ppTableDefinition :: TableDefinition -> Doc
ppTableDefinition table
  = text "table" $$
    nest 2 (vcat xs) $$
    text "endtable"
  where
    xs = case table of
           CombinationalTable entries -> map ppCombinationalEntry entries
           SequentialTable entries    -> map ppSequentialEntry entries
ppTableDefinition table
  = text "table" $$
    nest 2 (vcat xs) $$
    text "endtable"
  where
    xs = case table of
           CombinationalTable entries -> map ppCombinationalEntry entries
           SequentialTable entries    -> map ppSequentialEntry entries