Move from MonadIO to MonadBase IO