Estoy teniendo problemas para transformar un type a una lista, cada elemento debe ir separado por un espacio en blanco pero al realizarlo, el String tiene un espacio al inicio o final de la lista y no comprendo si hay una forma de eliminar dicho espacio. Pensé en hacer otra función que valide si era realmente el primer elemento y otra en poner un condicional, sin embargo, creo que sería un código muy extenso e innecesario.
type Words = [Quotes]
data Quotes = Vocals Char | One
toStr :: Words -> String
toStr [] = ""
toStr (Vocals z:zs) = " " ++ z ++ toStr zs
toStr (One :zs) = " " ++ "1" ++ toStr zs
Ejemplo:
>> toStr [(vocals 'a'), (One), (Vocals 'b')]
" a 1 b" -- lo que retorna
"a 1 b " -- otro error al poner el espacio al final
"a 1 b" -- lo que debería retornar