|General MIDI Level 1 specific controllers
gm1ControllerList :: [(Int,String)]
gm1ControllerList = 
  [ ( 1 , "Modulation" )
  , ( 6 , "Data Entry MSB" )
  , ( 7 , "Volume" )
  , ( 10 , "Pan" )
  , ( 11 , "Expression" )
  , ( 38 , "Data Entry LSB" )
  , ( 64 , "Sustain" )
  , ( 100 , "RPN LSB" )
  , ( 101 , "RPN MSB" )
  , ( 121 , "Reset all controllers" )
  , ( 123 , "All notes off" )
  ]
  
gm1ControllerList :: [(Int,String)]
gm1ControllerList = 
  [ ( 1 , "Modulation" )
  , ( 6 , "Data Entry MSB" )
  , ( 7 , "Volume" )
  , ( 10 , "Pan" )
  , ( 11 , "Expression" )
  , ( 38 , "Data Entry LSB" )
  , ( 64 , "Sustain" )
  , ( 100 , "RPN LSB" )
  , ( 101 , "RPN MSB" )
  , ( 121 , "Reset all controllers" )
  , ( 123 , "All notes off" )
  ]
gm1ControllerList = 
  [ ( 1 , "Modulation" )
  , ( 6 , "Data Entry MSB" )
  , ( 7 , "Volume" )
  , ( 10 , "Pan" )
  , ( 11 , "Expression" )
  , ( 38 , "Data Entry LSB" )
  , ( 64 , "Sustain" )
  , ( 100 , "RPN LSB" )
  , ( 101 , "RPN MSB" )
  , ( 121 , "Reset all controllers" )
  , ( 123 , "All notes off" )
  ]