search

music-suite / music-score

This repo has been merged into: https://github.com/music-suite/music-suite
http://music-suite.github.io
BSD 3-Clause "New" or "Revised" License
52 stars 10 forks source link

Remove extra parentheses in Show Time/Duration #327

Closed hanshoglund closed 4 years ago

hanshoglund commented 9 years ago 
>>> 1.5 :: Duration
(3/2)
-- Want: 3/2

-- For cases like
>>> (mcatMaybes $ (mconcat [rest, c', ab, db', e^*2, f, g, mconcat [ab^*3, bb]^/2, c'^*2])^/4) :: Voice Int
[((1/4),12)^.note,((1/4),8)^.note,((1/4),13)^.note,((1/2),4)^.note,((1/4),5)^.note,((1/4),7)^.note,((3/8),8)^.note,((1/8),10)^.note,((1/2),12)^.note]^.voice

Fix by implementing showsPrec.

hanshoglund commented 4 years ago

This repo has been merged into: https://github.com/music-suite/music-suite

Closing :)