MK
data Foo :: Type -> Type where ...
fooState :: MonadState m (Map Int Int) => Foo ~> m
instance MonadState My (Map Int Int)
fold :: Monad m =>(f ~> m ) -> Free f ~> m
что из вышеперечисленного вы называете интерпретатором
Free Foo
в My
?
Size: a a a
MK
data Foo :: Type -> Type where ...
fooState :: MonadState m (Map Int Int) => Foo ~> m
instance MonadState My (Map Int Int)
fold :: Monad m =>(f ~> m ) -> Free f ~> m
Free Foo
в My
YS
fooState :: MonadState m (Map Int Int) => Foo ~> m
не уверен что понимаю это сигнатуруYS
fooState :: MonadState m (Map Int Int) =>
(forall x. Foo x -> m x)
Oℕ
fooState :: MonadState m (Map Int Int) => Foo ~> m
не уверен что понимаю это сигнатуруYS
fold :: Monad m => (f ~> m ) -> Free f ~> m
fold :: Monad m => (forall a . f a -> m a) -> Free (forall b . f b -> m b)
верно?Oℕ
fold :: Monad m => (f ~> m ) -> Free f ~> m
fold :: Monad m => (forall a . f a -> m a) -> Free (forall b . f b -> m b)
верно?YS
YS
MK
MK
YS
MK
MK
YS
YS
YS
MK
YS
YS
data Foo :: Type -> Type where ...
fooState :: MonadState m (Map Int Int) => Foo ~> m
instance MonadState My (Map Int Int)
fold :: Monad m =>(f ~> m ) -> Free f ~> m
Free Foo
в My
fold
видимо