Equation has different number of arguments

Question

I made these data types to represent guitar tabs and I\'m trying to write the show function to print them as real guitar tabs. datas are not my spe

Answer 1

The second instance needs more parentheses:

instance Show Chord where
  show (EmptyChord a) = init $ take (a * 2) ['-', '\n' ..]
  show (Chord (x : xs)) = x : '\n' : show xs