module Symantic.HTTP.Utils where import System.IO (IO) import qualified Control.Monad.Classes as MC -- * Utils -- | Specialized 'MC.exec' for clarity. liftIO :: MC.MonadExec IO m => IO a -> m a liftIO = MC.exec {-# INLINE liftIO #-}