[Haskell-cafe] Equivalent of if/then/else for IO Bool?