[Haskell-cafe] better error expression in IO function