vvaluerunEmbedded :: Member (Embed m2) r=> forall x. m1 x -> m2 x-> Sem (Embed m1 ': r) a-> Sem r aPeek#
Nnewtypenewtype Embed (m :: Type -> Type) (z :: Type -> Type) a wherePeek#ConstructorsEmbed :: m a -> Embed m z aunEmbed :: m a