Function pState

test/koka-samples.spec.ts:228–237

(init: T)

  );

const pState = <T>(init: T) =>
  defineHandlerFor<State<T>>().with((self) => {
    let st = init;
    return self
      .andThen((x) => [x, st] as const)
      .resume("state.get", () => st)
      .resume("state.set", (x) => {
        st = x;
      });
  });

test("3.4.5. Return Operations", () => {
  expect(safeDivide(1, 0).with(raiseMaybe).runSync()).toEqual(nothing);