Philip Lykke Carlsen plcplc

## EffectsInEffects.hs
module EffectsInEffects where

import Polysemy as Poly

-- Plumbing:

class Monad m => EffectMonad m where
  type R m :: EffectRow
  wrapEffectMonad :: Sem (R m) a -> m a
  unwrapEffectMonad :: m a -> Sem (R m) a
	module EffectsInEffects where

	import Polysemy as Poly

	-- Plumbing:

	class Monad m => EffectMonad m where
	type R m :: EffectRow
	wrapEffectMonad :: Sem (R m) a -> m a
	unwrapEffectMonad :: m a -> Sem (R m) a