{-# OPTIONS_HADDOCK not-home #-}
module Control.Effect.Type.Embed where

-- | An effect for embedding actions of a base monad into the current one.

newtype Embed b (m :: * -> *) a where
  Embed :: { Embed b m a -> b a
unEmbed :: b a } -> Embed b m a