module Music.Pitch.Relative.Number (
Number,
unison,
prime,
second,
third,
fourth,
fifth,
sixth,
seventh,
octave,
) where
newtype Number = Number { getNumber :: Integer }
deriving (Eq, Ord, Num, Enum, Real, Integral)
instance Show Number where {show = show . getNumber }
unison :: Number
prime :: Number
second :: Number
third :: Number
fourth :: Number
fifth :: Number
sixth :: Number
seventh :: Number
octave :: Number
unison = 1
prime = 1
second = 2
third = 3
fourth = 4
fifth = 5
sixth = 6
seventh = 7
octave = 8