[Haskell-cafe] creating a type based on a string