-- TODO: I haven't figured this one out yet
embedded' :: MaybeT (ExceptT String (ReaderT () IO)) Int
embedded' = _ (const (Right (Just 1)))
embedded' :: MaybeT (ExceptT String (ReaderT () IO)) Int
embedded' = _ (const (Right (Just 1)))
embedded' = _ (const (Right (Just 1)))