Haskell People Don't Know How to Indent

I've been learning more about Haskell recently, and I think the language itself is fine. But, I really can't stand how Haskell people indent their code. Take this for example (from the 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!"

For code this simple, it still makes my eyes hurt. I think it's because of these reasons:

• Totally inconsistent indentation

  There are 3 spaces between doGuessing and putStrLn, but 2 between if and then. Now it's 8 spaces between then and doGuessing? And for the else if branch, it's 7 spaces now, like what???

• putStrLn is so ugly

  Why can't people use printLine for the function name?

• Lack of empty lines to separte different parts

After using the "correct" indentation and alignment style, changing functions names, and adding some empty lines, the code becomes:

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!"

That's much better.

If you like more nesting, you can write it like this:

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!"