GeneratedInstance1.hs

{-# OPTIONS_GHC -fno-warn-orphans   #-}
{-# LANGUAGE TemplateHaskell        #-}
{-# LANGUAGE EmptyDataDecls         #-}
{-# LANGUAGE TypeFamilies           #-}

module MIR.GeneratedInstances.GeneratedInstance1 where

-- Generics stuff
import Generics.Instant.TH

-- Music stuff
import MIR.HarmGram.ParserChord
import MIR.HarmGram.ShowChord
import MIR.Matching.GDiff
import MIR.HarmGram.MIR
import MIR.GeneratedInstances.GeneratedInstance2()

$(deriveAll ''Phrase)
$(simplInstance ''ParseG ''Phrase 'parseG 'parseGdefault)
$(simplInstance ''ShowChord ''Phrase 'showChord 'showChordDefault)
$(simplInstance ''Children ''Phrase 'children 'childrenDef)
$(simplInstance ''Build ''Phrase 'build 'buildDef)
$(simplInstance ''SEq ''Phrase 'shallowEq 'shallowEqDef)
instance GDiff Phrase