[Haskell-cafe] wondering about a MonadIO instance for a heap data type

[Qi Qi]

Hi,

I was wondering about creating an instance of MonadIO for a heap data.
Any hints?

data Heap a = E | T Int a (Heap a) (Heap a)
     deriving (Eq, Ord, Read, Show)

The reason is that I want to use liftIO during a heapsort to print out
intermediate results.

Thanks.

Qi Qi