[project @ 2001-01-17 15:11:04 by simonmar]
[ghc-hetmet.git] / ghc / interpreter / test / unused / infix.hs
1 --!!! Testing the printing of infix constructors
2 data Music = Note
3            | Music :+: Music
4            | Scale Music
5   deriving Show
6
7 m = Scale (Note :+: Note)