toUpper　:: Char -> Char

■GHCiでいま実行してみた
Prelude> Char.toUpper "abc"
"ABC"

えーと、そうか・・・
map　:: (a -> b) -> [a] -> [b]

これを見て、この場合は安易にStringのリストが帰ってくると思い込んでたのか・・・
Charのリスト（=String）が返ってくるのかこの野郎ぅ