Haskell 现有文件的 ReadFile 失败

Question

我正在 Haskell 中编写一个函数作为编译器的一部分来打开一个文件，从中读取一组文件名并将它们连接成一个字符串。代码在 ghci 中运行良好，但在使用以下内容编译时失败：

fact.fn: openFile: does not exist (No such file or directory)

我完全确定 fact.fn 存在并且它与可执行文件位于同一目录中。

相关代码：

compile [fileName] = do  
             (ilude, contents) <- imports fileName
             let lude = "prelude.fn" : ilude
             prld <- fmap fullPrelude (mapM readFile lude) --seems to fail here, 
--but works fine in the interpreter
             let newPrld = unlines [prld, "\nend"]
             runEvalWith HappyParser.parseExpr fileName contents newPrld


imports :: String -> IO ([String], String)
imports fileName = do 
    contents <- readFile fileName
    let ls = lines contents
    let ifile = filter (isPrefixOf "import") ls {-find import string here-}
    let contentList = filter (\w -> w `notElem` ifile) ls
    let impts = mapMaybe (stripPrefix "import") ifile
    return (impts, (unlines contentList) )


fullPrelude :: [String] -> String
fullPrelude [] = ""
fullPrelude xs = unlines( map (procPrelude) xs)

procPrelude :: String -> String
procPrelude pld = unlines(init(words pld))

Answer 1

我认为问题在于，在处理像这样的导入命令时：

import fact.fn

您没有从文件名的开头删除 space，因此您的程序实际上是在尝试导入文件 " fact.fn" 而不是 "fact.fn"。如果仔细研究错误消息，您可以验证是否属于这种情况。如果错误是：

*** Exception:  fact.fn: openFile: does not exist (No such file or directory)

在 Exception: 和 fact.fn 之间有两个 space 而不是一个，然后在文件名的开头有一个额外的 space。

我完全不知道你是如何在解释器中运行成功的。

Haskell 现有文件的 ReadFile 失败

Haskell ReadFile fails for existing files

haskell

readfile

io-monad