[Haskell-beginners] Defining of subset of constructors as valid values