Pretty-printed while command indents too much

[PkmX]

> let Right e = parse "<stdin>" "while true; do :; done;" in putStrLn $ prettyText e
while true; do
                :;
            done;

For reference, the output from bash's declare -f is:

$ f() { while true; do :; done }
$ declare -f f
f () 
{ 
    while true; do
        :;
    done
}

It seems like doDone l binds too tightly that the whole block is now beside the while p; text.

[knrafto]

Thanks for reporting! :)