Line after "else do" does not indent

I have `haskell-indentation` enabled on On Emacs 24.3.1 and a snapshot of haskell-mode from 12 May.

I'm working through _Real World Haskell_ and I have something like:

``` haskell
mainloop :: Handle -> Handle -> IO ()
mainloop inh outh =
do ineof <- hIsEOF inh
if ineof
then return ()
else do
-->inpStr <- hGetLine inh
hPutStrLn outh (map toUpper inpStr)
mainloop inh outh
```

The line that starts with `inpStr` will not indent despite pressing tab.

I don't know if the above is bad style or if there is a different way haskell-indentation expects, but it seems like the line should indent 2 spaces.