[project @ 1998-12-02 13:17:09 by simonm]
[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)