Question

我是Haskell的新手，在阅读真实世界的Haskell时遇到了一个问题：

Q）使用前面第71页的“简单命令行框架”一节中的命令框架，编写一个程序，以打印其输入的每一行的第一个单词。

命令框架为：

-- file: ch04/InteractWith.hs
-- Save this in a source file, e.g., Interact.hs

import System.Environment (getArgs)

interactWith function inputFile outputFile = do
  input <- readFile inputFile
  writeFile outputFile (function input)

main = mainWith myFunction
  where mainWith function = do
      args <- getArgs
      case args of
        [input,output] -> interactWith function input output
        _ -> putStrLn "error: exactly two arguments needed"
-- replace "id" with the name of our function below
myFunction = id

我对这个问题的解决方案是：

-- file: ch04/InteractWith.hs
-- Save this in a source file, e.g., Interact.hs

import System.Environment (getArgs)

interactWith function inputFile outputFile = do
  input <- readFile inputFile
  writeFile outputFile (function input)

main = mainWith myFunction
  where mainWith function = do
      args <- getArgs
      case args of
        [input,output] -> interactWith function input output
        _ -> putStrLn "error: exactly two arguments needed"
-- replace "id" with the name of our function below
myFunction = concat (map (++"\n") (map head (map words (lines input))))

按照说明，每当我尝试使用ghc --make filename编译该程序时，都会出现解析错误，即

error: parse error on input ‘args’
   |
36 |       args <- getArgs
   |       ^^^^

Answer 1

您的缩进已关闭。

Haskell对空格敏感。特别是，除其他事项外，通常必须将“块”的“内部”缩进到比该块开始处更靠右的位置。在您的情况下，这意味着do的内部必须在上一行的mainWith的右边缩进。

尝试一下：

main = mainWith myFunction
  where mainWith function = do
          args <- getArgs
          case args of
            [input,output] -> interactWith function input output
            _ -> putStrLn "error: exactly two arguments needed"

为什么我会收到解析错误，如何在Haskell中解决此错误？

1 个答案: