
-- | Log the MidiHeader in the Table monad (cf. Writer).
--
tellMidiHeader :: MidiHeader -> Table ()
tellMidiHeader (MidiHeader fmt tcount td) = 
    localColumns midi_header_columns $ do
      tellRow $ \_ _ -> [ text "MIDI Format",      ppFormat fmt ]