parse-error "Expecting then" "Expecting else" DoAndIfThenElse in indentation

For this code:

``` haskell
main :: IO ()
main = do
    if True
    then putStrLn "True"
```

when you press enter after "True" – you get an error:

let: No catch for tag: parse-error, "Expecting then"
