{-# OPTIONS_GHC -Wall -fno-warn-orphans #-}
{-# LANGUAGE ScopedTypeVariables #-}

module HarmTrace.Models.Test.Main (
    pPieceTest
  , module HarmTrace.Models.Test.Model
  ) where

-- Music stuff
import HarmTrace.Models.Parser
import HarmTrace.Models.Test.Model

import HarmTrace.Models.Test.Instances ()


--------------------------------------------------------------------------------
-- From tokens to structured music pieces
--------------------------------------------------------------------------------

pPieceTest :: PMusic [PieceTest]
pPieceTest = parseG