haskell - Haskell 中关于 if-then-else 缩进的奇怪错误

Question

我有以下代码:

foo :: Int -> [String] -> [(FilePath, Integer)] -> IO Int
foo _ [] _ = return 4
foo _ _ [] = return 5
foo n nameREs pretendentFilesWithSizes = do
  result <- (bar n (head nameREs) pretendentFilesWithSizes)
  if result == 0
  then return 0 --  <========================================== here is the error
  else foo n (tail nameREs) pretendentFilesWithSizes

我在上面的评论中收到一个错误，错误是:

aaa.hs:56:2:
    parse error (possibly incorrect indentation)

我正在使用 emacs，没有空格，我不明白我做错了什么。

Answer 1

这在 Wikibooks article 的“if -within- do ”部分中进行了解释。关于 Haskell 缩进。

问题在于 do -脱糖者，then和 else行看起来像新语句:

do { first thing
   ; if condition
   ; then foo
   ; else bar
   ; third thing }

缩进 then和 else行将解决问题。

更新:由于这被标记为 beginner ，我还会注意到，在 Haskell 中，通常会认为以下内容更惯用:

foo :: Int -> [String] -> [(FilePath, Integer)] -> IO Int
foo _ [] _ = return 4
foo _ _ [] = return 5
foo n (r:rs) filesWithSizes = bar n r filesWithSizes >>= checkZero
  where
    checkZero :: Int -> IO Int
    checkZero 0 = return 0
    checkZero _ = foo n rs filesWithSizes

这与您的 foo 完全相同。 ，但它避免了 do糖并使用模式匹配而不是 head和 tail和 if-then-else控制结构。非正式地， >>=这里说“将 bar... 的输出从其 IO 包装器中取出并通过 checkZero 运行，返回结果”。