Works

2026-08-21 13:15:31 +03:00
parent dfc744842d
commit e50a505a13
16 changed files with 85 additions and 3072 deletions
@@ -39,9 +39,9 @@ data Request = Request
 newtype Mealy eff a b = Mealy
  { runMealy :: forall m. MonadFix m => (forall x. eff x -> m x) -> Request -> a -> m (b, Mealy eff a b) }

-eff :: (a -> eff b) -> Mealy eff a b
-eff f = Mealy $ \nt _ x ->
-  nt (f x) >>= \b -> pure (b, eff f)
+eff :: (Request -> a -> eff b) -> Mealy eff a b
+eff f = Mealy $ \nt req x ->
+  nt (f req x) >>= \b -> pure (b, eff f)

 instance Category (Mealy eff) where
  id = Mealy (\_ _ x -> pure (x, id))