notateHarmonic :: (Eq t, Num t) => (Any, Sum t) -> LyMusic -> LyMusic
notateHarmonic (Any isNat, Sum n) = case (isNat, n) of
  (_,     0) -> id
  (True,  n) -> notateNatural n
  (False, n) -> notateArtificial n
  where
    notateNatural n = Lilypond.addFlageolet -- addOpen?
    notateArtificial n = id -- TODO
notateHarmonic :: (Eq t, Num t) => (Any, Sum t) -> LyMusic -> LyMusic
notateHarmonic (Any isNat, Sum n) = case (isNat, n) of
  (_,     0) -> id
  (True,  n) -> notateNatural n
  (False, n) -> notateArtificial n
  where
    notateNatural n = Lilypond.addFlageolet -- addOpen?
    notateArtificial n = id -- TODO
notateHarmonic (Any isNat, Sum n) = case (isNat, n) of
  (_,     0) -> id
  (True,  n) -> notateNatural n
  (False, n) -> notateArtificial n
  where
    notateNatural n = Lilypond.addFlageolet -- addOpen?
    notateArtificial n = id -- TODO