module Language.MusicPiece
  ( MusicPiece (..)
  ) where

import Language.Instrument (Instrument)

newtype MusicPiece = MusicPiece [Instrument]
  deriving (Int -> MusicPiece -> ShowS
[MusicPiece] -> ShowS
MusicPiece -> String
(Int -> MusicPiece -> ShowS)
-> (MusicPiece -> String)
-> ([MusicPiece] -> ShowS)
-> Show MusicPiece
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MusicPiece] -> ShowS
$cshowList :: [MusicPiece] -> ShowS
show :: MusicPiece -> String
$cshow :: MusicPiece -> String
showsPrec :: Int -> MusicPiece -> ShowS
$cshowsPrec :: Int -> MusicPiece -> ShowS
Show)