哈斯克尔：putStrLn ploblem

Question

我已经写了一个电话本程序：

import System.IO 

main = do 
     putStrLn "Pls input the name: " 
     handle <- openFile "phone.txt" ReadMode 
     contents <- hGetContents handle 
     name<-getLine 
     putStrLn . findNumber name $ toDict contents 

findNumber x [] = "not found" 
findNumber x ((y,z):ys) = if x==y then z else findNumber x ys 
toDict :: String -> [(String, String)] 
toDict = map read . lines 

我得到了一个错误，当我编译它。

phoneNumber.hs : 7:16: parse error on input '<-' 

这里有什么问题？

Answer 1

由于d8d0d65b3f7cf42说，这几乎肯定是一个缩进问题。复制和粘贴你的代码不会给你带来任何错误，所以在SO上发布代码所需的重新格式化可能会掩盖你的问题。