Haskell 人不懂缩进

最近更多地了解了一下 Haskell，我觉得语言本身还行。然而，我真的受不了 Haskell 人缩进的方式。拿这个为例子（来自 Haskell wikibook）：

doGuessing num = do
   putStrLn "Enter your guess:"
   guess <- getLine
   if (read guess) < num
     then do putStrLn "Too low!"
             doGuessing num
     else if (read guess) > num
            then do putStrLn "Too high!"
                    doGuessing num
            else putStrLn "You Win!"

这么简单的一段代码，仍然让我看着眼睛疼。原因我觉得可以这么解释：

• 完全不统一的缩进长度

  doGuessing 到 putStrLn 是 3 个空格，if 到 then 却是 2 个空格。从 then 到 doGuessing 又变成 8 个空格？然后到了 else if 的分支，又变成了 7 个空格，什么鬼？？？

• putStrLn 实在太丑了

  为什么人们不能用 printLine 当函数名？

• 缺少用来区分不同部分的空行

使用“正确”的缩进和对齐，改了函数名，再加上适当的空行后，这段代码变成了这样：

doGuessing num = do

    printLine "Enter your guess:"
    guess <- getLine

    if      (read guess) < num then do
        printLine "Too low!"
        doGuessing num
    else if (read guess) > num then do
        printLine "Too high!"
        doGuessing num
    else
        printLine "You Win!"

这就看起来好多了。

如果你喜欢更多的嵌套，你可以这样写：

doGuessing num = do

    printLine "Enter your guess:"
    guess <- getLine

    if (read guess) < num
        then do
            printLine "Too low!"
            doGuessing num
        else if (read guess) > num
            then do
                printLine "Too high!"
                doGuessing num
            else
                printLine "You Win!"