[Haskell-beginners] Restrict type in phantom data-type