-- | Returns whether this is a standard accidental, i.e.
--   either a double flat, flat, natural, sharp or double sharp.
isStandardAccidental :: Accidental -> Bool
isStandardAccidental a = abs a < 2
isStandardAccidental :: Accidental -> Bool
isStandardAccidental a = abs a < 2
isStandardAccidental a = abs a < 2