我得到了
buildList :: [String] -> IO ()
buildList thelist = do
putStr "Enter a line: "
str <- getLine
if str == ""
then return ()
else do let list = str:thelist
print list
buildList list
我还必须添加一个listBuilder :: IO(),当我尝试运行时,我得到一个奇怪的错误
ERROR file:.\week8.hs:92 - Syntax error in input (unexpected `=')
得出的结论是buildList有问题,即使它有效,因为我无法在其下面放置任何新函数,即使是那些不需要使用buildList函数的函数
如果有人知道如何解决这个问题,我将不胜感激。感谢
〜汤姆
答案 0 :(得分:2)
缩进函数体,使解析器知道它的结束位置。