Solution 1:
Use this
data Mode = Major | Minor
data Scale = C Mode | D Mode | E Mode | F Mode | G Mode | A Mode | B Mode
Now you can write (with capital C and capital M)
aScale = C Major
Solution 2a:
This is also possible
data Mode = Major | Minor
data Key = C | D | E | F | G | A | B
data Scale = Scale Key Mode
Now you write
aScale = Scale C Major
Solution 2b:
This is also possible
data Mode = Major | Minor
data Key = C | D | E | F | G | A | B
type Scale = (Key, Mode)
Now you write
aScale = (C, Major)