module Classes (LiftIO(..)) where

class Monad m => LiftIO m where
  liftIO :: IO a -> m a