Symantic/HTTP/Utils.hs

   1 module Symantic.HTTP.Utils where
   2
   3 import System.IO (IO)
   4 import qualified Control.Monad.Classes as MC
   5
   6 -- * Utils
   7 -- | Specialized 'MC.exec' for clarity.
   8 liftIO :: MC.MonadExec IO m => IO a -> m a
   9 liftIO = MC.exec
  10 {-# INLINE liftIO #-}