Fix if-in-do notation

http://en.wikibooks.org/wiki/Haskell/Indentation#if_within_do
http://hackage.haskell.org/trac/haskell-prime/wiki/DoAndIfThenElse