GeneratedInstance2.hs

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

module MIR.GeneratedInstances.GeneratedInstance2 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.GeneratedInstance3()

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