- | head s == ' ' = die "Leading space in value to be wrapped"
- | last s == ' ' = die "Trailing space in value to be wrapped"
+ | head s == ' ' = die ["Leading space in value to be wrapped:", s]
+ | last s == ' ' = die ["Trailing space in value to be wrapped:", s]