3
我跟在http://www.haskell.org/haskellwiki/Hitchhikers_guide_to_Haskell中的代码,并且代码(在第2章中)给出了一个错误。本教程中没有提及作者姓名/电子邮件,所以我来这里寻求建议。代码如下,错误发生在“eof”字上。haskelwiki教程中的parsec错误
module Main where
import Text.ParserCombinators.Parsec
parseInput =
do dirs <- many dirAndSize
eof
return dirs
data Dir = Dir Int String deriving Show
dirAndSize =
do size <- many1 digit
spaces
dir_name <- anyChar `manyTill` newline
return (Dir (read size) dir_name)
main = do
input <- getContents
putStrLn ("Debug: got inputs: " ++ input)
谢谢。另外,从Main调用parseInput设置上下文。在上面的例子中,代码正在构建,Main代码来自以前的版本,并且不调用parseInput。当我修改下一节的主代码段时,它工作。 – R71