如何在haskell中做出簡單的選擇？

Question

我有一個問題，這個代碼不工作，我不知道爲什麼：

foo :: [String] -> IO [String] 
foo input = do 
    choice <- getLine 
    if choice == "1" then do 
     putStrLn "good choice" 
     return input 
    else 
     return [] 

Answer 1

由於是（有位retabbing）的代碼爲我工作。 if/else很難在標籤中正確顯示。 Wiki文章if/then/else應該有所幫助。

foo :: [String] -> IO [String] 
foo input = do 
    choice <- getLine 
    if choice == "1" then do 
    putStrLn "good choice" 
    return input 
    else 
    return [] 

消除內do表達使得如果/則塊稍微更容易縮進。

foo2 input = do 
    choice <- getLine 
    if (choice == "1") 
    then (putStrLn "good choice" >> return input) 
    else (return [])