[Haskell] Re: factoring `if'