unexpected token "where" when indentation of do-block same as where

The following code, which compiles with ghc, only compiles with frege when removing a space before `where`

``` haskell
module DoWhere where

main = do
    print x
    where x = 1
```

```
E DoWhere.hs:5: unexpected token "where" while trying to
    parse do expression qualifiers
E DoWhere.hs:3: last statement in a monadic do block must
    not be let decls
E DoWhere.hs:5: syntax error on '}'
```
