Change IO (Maybe a) to MaybeT IO a