[Haskell-beginners] about "putStr"

[nowsnow]

GHC 8.6.5
=====
import Data.Char

main = do
    putStr "Give me some input: "
    l <- getLine
    putStrLn $ map toUpper l
====run====
my str
Give me some input:MY STR

===not:===
Give me some input:my str
MY STR


-- 
nowsnow <nowsnow at 163.com>