在haskell if-then-else中遞歸調用main時執行多個語句

Question

這是我的代碼

main :: IO ()  
main = do
    putStr "Enter user name: " 
    userName <- getLine
    putStr "Enter filename: " 
    fileName <- getLine
    contents <- readFile fileName
    --------SOME CODES HERE------------------
    putStrLn ("TITLES AND RATINGS OF FILMS BY " ++ userName)
    -----------SOME CODES HERE-----------------
    putStr "ENTER 'Y' TO SAVE CHANGES AND EXIT: "
    ex <- getChar
    if ex /= 'Y' then
       main     
    else do 
        writeFile fileName (show film')
        exitWith ExitSuccess 

當我輸入'Y'的任何邊值時，我得到：

輸入用戶名：輸入文件名：_

而不只是

輸入用戶名： _

有人知道為什么會這樣嗎？

Answer 1

getChar僅讀取單個字符。 但是您按了Enter鍵，所以您還輸入了一個換行符，當您遞歸調用main時，第一個getLine讀取該換行符。

只需使用getLine代替getChar並檢查它是否為/= "Y" 。